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L  INTRODUCTION 


A.  Background 

The  U.S.  Army  Recruiting  Command’s  (TJSAREC)  ability  to  recruit  new  soldiers  in  the 
quantity  and  with  the  quality  required  to  sustain  the  Regular  Army  and  the  Army  Reserve 
depends  upon  its  ability  to  adjust  to  changes  in  the  rnarketpla^'e.  Likely  adjustments  include  (1) 
modifying  its  product  offering,  (2)  changing  the  numbers  of  field  recruiters  and  the  locations 
where  they  are  assigned,  (3)  promoting  the  Army  through  advertising  and  participation  in  public 
events,  and  (4)  varying  its  enlistment  terms,  standards,  and  skill  requirements.  The  first  three 
factors  have  a  direct  impact  on  the  amount  of  resources  (both  manpower  and  dollars  expended) 
dedicated  to  the  recruiting  function.  The  founh  factor  -  variance  of  enlistment  terms,  standards, 
and  skill  requirements  -  has  an  indirect  impact  on  other  Army  resources  that  are  affected  by 
changes  in  turnover  and  attrition  rates,  and  the  length  of  initial  training  required. 

The  reality  of  military  recruiting  is  that  its  cost  is  directly  related  to  conditions  in  the 
marketplace.  Most  businesses  arc  not  monopolies.  Like  private  industry,  USAREC  must 
compete  in  the  open  market  for  its  sales  (recruits).  Its  competitors  vary  from  the  other  military 
services  and  civilian  employers  to  postsecondary  educational  institutions.  But  unlike  private 
industry,  USAREC  presently  lacks  a  predictor  of  future  market  conditions  that  has  the  same  level 
of  acceptance  by  program  managers  and  administrators  at  the  Department  of  the  Army  (DA), 
Office  of  the  Secretary  of  Defense  (OSD),  and  congressional  levels  as.  for  example,  the  use  of 
the  "leading,"  "concurrent,"  and  "lagging"  economic  indicators  employed  by  economists.  Further, 
the  federal  budget  process  precludes  the  Army  from  using  a  key  management  program  available 
within  the  private  sector:  a  proactive  marketing  program  wherein  products,  sales  location,  and 
program  emphasis  can  be  adjusted  rapidly  in  response  to  changing  market  conditions. 

Numerous  studies  have  established  that  the  supply  of  recruits  is  inversely  related  to 
employment  opportunities  in  the  civil  sector,  and,  in  varying  degrees,  directly  related  to  the 
amount  of  resources  employed  in  the  recruiting  function.  These  resources  include  the  number 
of  recruiters,  advertising  expenditures,  type  and  amount  of  educational  benefits,  and  enlistment 
bonuses.  Matching  resources  against  market  difficulty  is  a  continuing  management  function.  The 
authority  to  allocate  different  mixtures  of  incentives  and  adjust  resources  in  a  fairly  rapid  fashion 
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would  significandy  assist  recruiting  management’s  ability  to  respond  to  changes  in  maricet 
conditions. 


B.  Recruiting  Resourcing  System  (RRS)  Study  Objectives 

This  study  had  four  major  objectives: 

o  Document  the  system  through  which  USAREC’s  recruiting  mission  is  resourced, 
including  the  parochial  interests  and  biases  (if  any)  of  the  specific  organizational 
elements  involved  in  the  development,  review,  and  approval  of  recruiting  programs 
and  resources. 

o  Develop  a  strawman  Recruiting  Resourcing  System  that  is  time-sensitive  and  will 
provide  USAREC  enhanced  ability  to  adjust  the  level  of  resources  with  changes 
in  market  conditions  that  were  not  anticipated  during  the  program  development  and 
resourcing  phases  for  the  operating  year. 

o  Develop  a  Recruiting  Difficulty  Index  (REDIN)  to  assist  USAREC  in  the 
forecasting  of  changes  in  its  recruiting  market  with  a  level  of  demonstrated 
accu’^cy  that  should  insdll  confidence  in  its  ability  to  project  future  market 
conditions. 

o  Develop  a  computer-based  Recruiting  Resourcing  System  that  integrates  the 
forecasted  market  conditions  from  REDIN  with  the  resource  requirement  needed 
to  achieve  USAREC’s  mission. 


C.  Documenting  the  Resourcing  Process 

The  fust  two  objectives  were  documented  in  an  earlier  report  (see  [29]).  Based  upon  our 
interviews,  we  concluded  that  the  DA  staff  and  OSD  demonstrated  a  solid  appreciation  and 
understanding  of  the  imponance  and  complexity  associated  with  recruiting.  In  regard  to  the 
formal  resourcing  structure  and  management  processes,  HumRRO  International,  Inc.  (HD)  found 
no  real  need  for  changes  in  policies,  regulations,  or  statutes  that  affect  recruiting.  Those 
interviewed  within  the  DA  staff  (DCSPER,  PA&E,  and  DAB  personnel)  believe  there  is  no  need 
for  changes  in  the  formal  structure.  They  stated  that  the  flexibilities  within  the  current  system 
and  the  priority  given  to  manpower  programs  within  the  Army,  and  recruiting  in  particular,  are 
sufficient  to  address  any  shifts  in  recruiting  resources  or  product  development  requests.  Within 
OSD,  there  is  also  a  belief  that  the  current  system  provides  needed  flexibility.  The  consensus 
opinion  within  OSD  is  that  recruiting  resource  needs  can  be  met  without  special  accelerated 
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reviews  or  other  forms  of  shortcuts  through  the  resourcing  process.  Therefore,  any  proposal  to 
overlay  a  special  accelerated  review  and  approval  process  for  recruiting  needs  would  be  deemed 
as  neither  warranted  nor  supportable. 

While  this  finding  appears  to  indicate  no  need  or  desire  to  modify  existing  formal 
structures  and  processes,  there  were  some  ongoing  events  that  pointed  toward  significant 
reductions  in  resource  levels  (e.g.,  Defense  Management  Review,  unit  costing  for  recruiting,  and 
the  potential  for  significant  end-strength  reductions).  Therefore,  USAREC  must  keep  a  close 
watch  as  these  events  develop,  and  be  prepared  to  address  some  "worst  case"  scenarios. 
Additionally,  there  are  a  number  of  causes  for  concern  in  the  informal  stmcture  which  USAREC 
should  address.  These  involve  very  subtle,  but  very  f>owerful,  informal  structures  and  processes. 

As  initially  conceived  and  described  in  the  project  management  plan,  RRS  was  envisioned 
as  a  system  that  combines  an  enlistment-forecasting  model  with  a  resource-generating  model, 
thereby  linking  expected  market  conditions  to  resource  requirements.  To  some  degree,  USAREC 
has  a  capability  to  do  iliis  by  using  the  Rational  Expectations  Army  Recruiting  Model  (REARM). 
However,  the  ability  to  generate  resource  needs  based  on  market  conditions  has  not  been 
formalized  with  displays  that  are  consistent  with  those  needed  for  budget  submissions.  It  is  clear 
that  the  Army  implementanon  of  the  Planning,  Programming,  Budgeting,  and  Execution  System 
(PPBES)  is  acutely  tuned  to  the  needs  and  importance  of  recruiting.  Therefore,  using  the 
terminology  established  in  the  OSD-sponsored  Enlistment  Early  Warning  System  (EEWS) 
project,’  the  likelihood  of  a  "recognition  lag"  leading  to  an  "accession  crisis"  is  greatly 
diminished.  However,  this  does  not  eliminate  the  need  for  an  accurate  accession  forecasting 
engine  underlying  the  RRS.  What  it  suggested  was  a  little  less  effort  toward  "new"  enlistment 
supply  models  (i.e.,  the  accession  forecasting  engine),  and  more  effort  toward  the  effective 
linkage  of  resource  needs  to  recruiting  conditions  and  requirements.  Specifically,  the  forecasting 
model  must  capture  the  impacts  of  the  recruiting  programs  with  significant  budget  allocations. 
D.  Development  of  the  Recruiting  Difficulty  Index  (REDIN)  Forecasting  Model 

REDIN  was  developed  under  subcontract  by  Dr.  Lawrence  Goldberg  of  the  Economic 
Research  Laboratory  (ERL).  The  REDIN  model  is  fully  documented  in  an  earlier  report  entitled 


1.  Enlistment  Early  Warning  System  and  Accession  Crisis  Prevention  Process.  Economic  Research 
Laboratory  Inc.,  Reston,  VA.,  June  1984. 
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Army  Recruiting  Resources  Study:  Development  of  a  Recruiting  Difficulty  Index  (June  1990). 
BasicaUy,  REDIN  is  a  state-of-the-art,  monthly,  time-series  model  to  forecast  high-quality 
enlistments  (GSMA)  at  the  national  level.  GSMA  forecasting  models  were  estimated  previously 
by  ERL  for  each  service  in  a  study  to  develop  an  Enlistment  Early  Warning  System  (EEWS).^ 
"Transfer  function"  models  were  estimated  with  national  monthly  level  data.’  In  forecasting  tests 
the  models  predicted  very  accurately,  e.g.,  2%  error  annually,  as  long  as  new  policies/programs 
were  not  introduced  in  the  forecast  period.^  The  EEWS  researchers  found  that  to  achieve 
accurate  GSMA  forecasts,  it  was  necessary  to  update  the  models  soon  after  a  new  policy  or 
program  was  introduced.  Since  this  appears  to  happen  perhaps  once  a  year,  it  is  necessary  to 
update  the  systems  regularly.  For  maximum  accuracy,  the  models  should  be  updated  every 
month. 

To  forecast  enlistments,  it  is  necessary  to  forecast  the  economic  factors  of  unemployment 
and  civilian  earnings.  The  EEWS  also  includes  time-series  forecasting  models  for  these  factors. 
Specifically,  there  is  a  transfer  function  model  for  unemployment  that  includes  as  explanatory 
variables  15  leading  economic  indicators.  It  also  includes  a  model  relating  the  growth  rate  of 
civilian  earnings  of  youth  to  unemployment  and  the  growth  rate  of  inflation. 

A  limitation  of  the  Army  GSMA  forecasting  model  included  in  ‘he  earlier  EEWS  is  that 
it  contained  relatively  crude  ineasures  of  Army  College  Fund  (ACF)  benefits,  enlistment  bonuses, 
and  advertising.  The  ACF  benefits  and  bonus  variables  did  not  account  for  changes  in  the 
Military  Occupational  Specialties  (MOSs)  included  in  the  programs;  advenising  is  measured  with 
annual  rather  than  monthly  level  data.  Use  of  po.r  measures  of  variables  can  result  in  misleading 
estimates  of  elasticities  and  inaccurate  forecasts. 


2.  For  the  original  research  to  develop  the  EEWS  see  [20].  For  the  most  recent  update  of  the  EEWS  see 

[16]. 


3.  A  transfer  function  regression  model  includes  both  explanatory  variables  and  autoregressive  or  moving 
average  error  terms.  For  discussion,  see  [26]. 


4.  If  new  pobey/programs  are  introduced,  it  is  necessary  to  respecify  and  recstimate  the  model  to  achieve 
accurate  forecasts.  This  requires  about  four  months  of  data  in  the  new  environment. 
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Building  on  the  EEWS  research,  the  REDIN  model  improved  upon  the  earlier 
methodclooy  oy  using  improved  measure.,  of  ACE  benefits,  bonuses,  and  advenising.  It  also 
includes  a  variable  measunng  the  bonus  "Buyup”  program  introduced  in  June  1987.  Tlie  REDIN 
forecasting  model  was  estimated  with  monthly  nauonal  level  data  for  the  ^  ..riod  October 
198 1-September  1989.  The  forecasting  models  for  unemployment  and  civilian  earnings  of  youth 
were  also  updated. 

E.  RRS  Concept  of  Operation 

As  initially  conceived,  the  RRS  system  would  directly  link,  in  a  single  shell,  tb^  REDIN 
forecasting  model  with  a  budget  istimaung  model.  However,  this  direct  linkage  was  deemed 
unworkable  for  several  reason  .  First,  REDIN  is  a  monthly  forecasting  model,  while  budgeting 
is  more  frequently  performed  on  an  mnual  basis.  Being  a  monthly  model,  maintaiiiing  REDIN 
takes  time  and  care  to  update  all  of  the  input  variables.  Changing  any  single  variable  for  a  go'en 
fiscal  year  requires  editing  the  12  monthly  figures  that  constitute  the  yeai'  of  interest.  Second, 
and  more  imponantly,  REDIN  was  written  to  og  irate  on  a  microcomputer  using  the  Regression 
Analysis  of  Time  Senes  (RATS)  softwa.'c.  Estimation  of  model  parameters  must  be  done  in 
RATS.  Due  to  the  transfer  function  specification  of  REDLN  (with  the  moving  average  terms;, 
forecasting  must  also  be  accomplisiieu  in  the  RATS  environment.  Essentially,  parameter 
estimation  and  forecasting  are  accomplished  in  each  run.  On  a  standard  ^BM-PC,  this  takes 
about  15  minutes  per  run.  For  playing  "what  if  drills,  this  would  make  REDIN  too  unresponsive 
to  be  truly  useful  for  budget  formulation. 

Rather  than  a  direct  linkage  we  opted  instead  to  make  REDIN  and  RRS  separate  entities. 
RRS  would  include  a  simplified  GSMA  forecasting  model,  thereby  maintaining  a  link  between 
the  recruiting  environment,  resources,  and  ’■ecruiting  production.  The  REDIN  and  RRS 
forecasting  equations  would  include  the  same  variables  with  the  exception  of  the  monthly 
dummies  and  moving  average  terms.  Unlike  REDIN,  RRS  forecasLs  would  be  based  upon 
changes  in  variables  from  a  base  budget  year  to  the  forecast  year.  Given  the  same  equation 
coefficients,  we  would  expect  either  model  to  give  nearly  identical  forecasts.  However,  they 
would  likely  never  be  exactly  equal. 

Although  separate,  REDIN  and  RRS  are  intended  to  be  used  in  tandem.  REDIN  is  a 
monitoring  tool;  it  is  intended  to  maintain  a  pulse  on  the  recruiting  environment.  To  be  of  most 
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use.  it  should  be  maintained  monthly,  or  no  less  than  quarterly.  RRS,  on  the  other  hand,  is  a 
planning  tool.  It  is  intenHed  to  allow  budgeteers  and  planners  to  gauge  the  effects  of  changes 
in  resource  components  on  GSMA  production  and  the  budget.  When  viable  options  are 
identified,  these  can  then  be  tested  thrcugu  REDIN  to  obtain  mere  accurate  GSMA  forecasts. 

II.  REDIN  USER  INTERFACE 

REDIN  is  essentially  a  RATS  applicadon.  RATS  is  a  very  powerful  language  for 
performing  times-series  analyses.  Unfortunately,  F  TS  is  not  particularly  user-friendly,  nor  does 
It  possess  s  .leen  utilities  to  build  a  sophisticated  application  user  interface.  Without  a  user 
interface,  REDIN  would  require  maintenance  by  an  analyst  familiar  with  RA.TS. 

.4.  Design  of  REDIN  User  Interface 

Ea;.;ent’illy,  the  RATS  ctxle  that  constitutes  the  body  of  the  REDIN  program  was  designed 
to  be  updated  by  t  hanging  only  a  few  program,  parameters.  .Although  this  is  quite  possible 
through  directly  editing  and  rcninning  the  RATS  code,  it  would  be  better  to  have  a  "front-end" 
program  that  allow';  the  u-^er  maf'e  changes  in  program  parameters  interactively.  Once  all  desired 
^:hange';  are  made  the  program  could  be  e.xecuted. 

Due  to  the  inherent  unfriendliness  of  RATS,  we  decided  to  design  a  user  interface  in 
Turbo  P:";cal.  Tliroiigh  tin.*  user  interface,  an  analyst  can  change  dates  and  output  options.  WTen 
the  optical  'o  ex(  cut-,  the  rncxle!  is  selected,  the  Turbo  Pascal  program  essentially  writes  the 
necessarv  R.4'rS  ccxie  and  then  calls  *^,ATS  to  execute  this  code. 

B.  REDIN  Menus 

The  ■  mgram  name  for  the  REDIN  user  interface  is  USA.  When  USA  is  invoked,  the  user 
is  pres'"  ^  with  a  set  c.  opening  screens.  When  initially  installed,  the  program  will  ask  where 
the  RATS  program  is  located.  The  user  must  type  the  full  drive  and  subdirectory  path  even  if 
REDIN  and  RATS  are  residing  in  the  same  directory.  Once  this  is  accomplished,  the  program 
will  assume  the  same  drive  and  path  for  future  model  execut’ons. 

The  opening  menu  is  shown  in  figure  1.  Throughout  the  program,  selecdon  of  a  menu 
option  is  accomplished  by  moving  the  highlight  bar  with  the  cursor  keys  to  the  desired  menu 
option  and  then  pressing  the  ENTER  key.  The  llrst  three  options  in  the  MAIN  TASK 
SELECTION  menu  lead  to  submenus.  When  option  entries  are  completed,  the  program  returns 
to  the  MAIN  TASK  SELECTION  menu. 


6 


MAIN  TASK  SELECTION 


Enter  /  Modify  Setup 
Time  Series  Parameters 
Graphs  /  Plots 
Execute  Model 
Data  Editor 
End  Session 

Figure  1.  Mam  Task  Selection  menu 

In  most  sessions,  the  first  step  will  be  to  select  the  ENTER  /  MODIFY  SETUP  menu 
option.  This  submenu  is  shown  in  figure  2  below. 


ENTER  /  MODIFY  SETUP 

Study 

Enter  Path  and  Name  of  Data  File . 

Enter  Path  and  Name  of  Output  File  . 

Enter  Path  of  Graphics  File  . 

_ What  is  the  Path  of  Your  Data  File? 

Figure  2.  Setup  menu  option 
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From  this  menu,  the  user  is  asked  for  four  pieces  of  information  in  sequential  order.  The 
first  input  requested  is  a  study  title.  This  is  an  optional  entry  and  is  only  used  as  a  label.  The 
next  input  is  Enter  Path  and  Name  ofHata  File.  The  user  must  provide  the  full  drive,  path,  and 
file  name.  The  basic  input  data  for  REDIN  is  contained  in  DATA_RRS.RAT.  It  is 
recommended  that  the  user  copy  DATA_RRS.RAT  to  a  work  file  (e.g.,  WORK_RRS.RAT) 
while  performing  data  updates  and  forecasting  runs.  Once  you  are  satisried  that  the  updated  data 
is  correct,  then  copy  this  work  file  back  to  the  backup  copy  of  DATA_RRS.RAT. 

The  next  option  presented  is  Enter  Path  and  Name  of  Output  File.  The  default  option  is 
to  output  to  the  screen.  In  most  cases,  output  to  a  printer  or  a  file  will  be  preferred.  To  output 
to  a  printer,  the  user  should  enter  PRN.  To  output  to  a  file,  the  user  should  enter  the  full  file 
name,  including  the  drive  and  path.  The  last  option  presented  is  Enter  Path  of  Graphics  File. 
If  desired,  the  graphs  can  be  sent  to  a  file.  The  alternatives  are  the  same  as  the  previous  menu 
option.  In  most  instances,  the  screen  is  the  desired  path. 

The  user  will  note  that  unique  explanation  prompts  are  displayed  at  the  bottom  of  the 
menu  as  each  option  is  reached.  This  is  employed  throughout  the  program  to  give  the  user  a 
more  thorough  description  of  what  information  is  required. 

When  the  required  information  for  this  menu  is  entered,  the  user  will  be  presented  with 
the  menu  shown  in  figure  3.  The  REDIN  system  has  three  component  models  -  an 
unemployment  forecasting  model,  a  civilian  wage  forecasting  model,  and  the  GSMA  contracts 
forecasting  model  (referred  f(  is  REDIN).  Before  the  user  can  forecast  GSMA  contracts,  there 
must  be  forecasts  of  unemployment  and  civilian  wages  for  the  desired  forecast  period.  In 
general,  the  update  of  unemployment  and  wages  will  be  done  once  a  month  or  quaner  during 
routine  data  maintenance.  As  before,  the  user  must  highlight  the  desired  option  and  press 
ENTER.  The  user  will  then  be  asked  to  confum  the  selection.  The  default  is  to  save  the 
selected  settings  (Save).  The  user  may  reselect  by  pressing  M(odify),  followed  by  the  ENTER 
key  or  exit  the  menu  by  pressing  Esc.  When  completed,  the  user  will  be  returned  to  the  MAIN 
TASK  SELECTION  menu. 
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MODEL  SELECTION 


Update  Unemployment  Forecasts 
Update  Civilian  Wages 
Execute  REDIN 


Press  [S]  to  Save  or  [M]  to  Modify  or  [esc]  to  Exit  S 


Figure  3.  Model  Selection  menu 


The  second  menu  option  in  the  MAIN  TASK  SELECTION  menu  allows  the  user  to  change 
the  beginning  and  end  dates  for  the  estimation  and  forecast.  The  screen  display  for  Time  Series 
Parameters  is  shown  in  figure  4.  The  prototype  REDIN  includes  data  for  estimating  regression 
coefficients  from  FY  1981  through  FY  1989  (10/80  to  9/89).  The  initial  forecasting  period  is  FY 
1990  (10/89  to  9/90).  In  order  to  maintain  the  model,  users  must  be  able  to  extend  the  period 
for  estimating  the  model  coefficients  and  performing  GSMA  forecasts.  In  this  prototype  version, 
the  start  date  for  the  regression  must  be  10/80.  Other  dates  may  be  modified  as  desired. 
However,  the  user  must  ensure  that  adequate  data  exists  for  the  time  periods  specified  or  the 
program  will  halt  with  an  error. 

The  last  option  of  the  ENTER  /  MODIFY  DATA  SETUP  FOR  RATS  menu  is  Graphs  Only 
Run  (YIN).  With  this  option,  users  can  examine  graphical  output  only.  This  would  be  a 
relatively  infrequent  need.  Enter  N(o)  to  run  the  full  model.  As  in  earlier  menus,  the  user  will 
be  asked  to  confirm  the  settings  before  returning  to  the  MAIN  TASK  SELECTION  menu. 
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ENTER  /  MODIFY  DATA  SETUP  FOR  RATS 


Start  and  End  Dates  for  Regression  .  10/80  to  9/89 

Start  and  End  Dates  for  Forecasts  .  10/89  to  9/90 

Graphs  Only  Run  (Y/N) .  N 


Is  this  Run  Only  to  Produce  Graphs?  (Y/N) 


Figure  4.  Time  Series  Parameters  menu 


The  third  option  in  the  MAIN  TASK  SELECTION  menu  is  Graphs  /  Plots.  The  GRAPH 
I  PLOT  OPTIONS  menu  is  shown  in  figure  5.  This  menu  allows  the  user  to  set  options  for 
graphical  output.  This  menu  is  different  from  earlier  ones  in  that  the  user  must  first  indicate  a 
desire  to  modify  the  default  settings  by  pressing  M(odify).  The  first  option  is  to  Graph  Data 
Trends.  If  set  to  Y(es).  the  program  will  generate  graphs  of  the  model  input  data.  In  most 
instances,  the  graphs  will  reflect  the  input  data  as  transformed  into  logarithms.  Graphs  of  raw 
data  can  be  obtained  through  the  Data  Editor  option  to  be  described  later.  The  second  option. 
Residual  Graphs,  presents  a  graph  of  the  regression  residuals  (Calculated  -  Actual).  This  is 
particularly  useful  when  updating  the  model  to  ensure  that  the  errors  for  newly  added  periods  are 
randomly  distributed.  When  Actuals  vs  Forecasts  Graphs  is  set  to  Y(es),  the  program  will 
generate  a  graph  of  observed  GSMA  enlistments  and  calculated  GSMA  enlistments  over  the 
regression  time  period.  In  most  instances,  this  will  be  the  only  option  set  to  Y(es)  in  this  menu. 
The  next  option  is  not  implemented  and  is  hard  coded  to  M(onthly).  Selecting  the  Statistics 
option  turns  on  the  printing  of  additional  statistics.  The  final  oprion,  Style  (Line,  Bar,  Polygonal), 


is  used  to  specify  the  graph  type.  L(ine)  is  the  preferred  setting.  The  user  must  confirm  the 
settings  with  an  S(ave)  before  returning  to  the  main  menu. 

At  this  point,  users  should  be  set  to  execute  the  model.  When  this  option  is  chosen,  the 
program  generates  the  RATS  code,  calls  and  executes  the  RATS  program,  and  sends  the  output 
to  the  specified  device.  A  sample  printout  is  shown  in  Appendix  A.  The  output  includes  the 
estimates  of  the  equation  coefficients  and  a  role-up  of  the  goal,  forecast,  and  difficulty  index  for 
the  designated  forecast  period  (usually  12  months). 


GRAPH  /  PLOT  OPTIONS 


Graph  Data  Trends .  N 

Residual  Graphs  .  N 

Actuals  vs.  Forecasts  Graphs .  Y 

Present  Monthly,  Quarterly,  or  Annually  (M,  Q,  A) .  M 

Statistics .  N 

Style  (Line,  Bar,  Polygonal)  (L,  B,  P)  .  L 


Press  [S]  to  Save  or  [M]  to  Modify  or  [esc]  to  Exit  S 


Figure  5.  Graph  /  Plot  Options  menu 


The  primary  task  to  maintain  REDIN  is  updating  the  data.  A  list  of  these  variables  is 
shown  in  table  1.  Several  variables  (i.e.,  MILPAY,  BON3,  ACF)  require  extensive  preprocessing 
before  the  values  can  be  entered  into  the  RATS  data  file.  Most  can  be  entered  directly.  REDIN 
makes  use  of  a  RATS  utility  called  RATSDATA.  This  program  is  fully  documented  in  the 
RATS  Version  3.0  manual.  RATSDATA  is  a  menu-  and  dialog-driven  utility  that  allows  users 
to  merge  several  data  files,  extract  data  to  create  new  files,  list  and  edit  contents  of  files,  do 
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quick  graphs  of  data,  and  convert  data  to  various  formats.  When  the  Data  Editor  option  is 

selected  from  the  MAIN  TASK  SELECTION  menu,  REDIN  invokes  RATSDATA. 

Table  1.  Variables  used  in  the  GSMA  models  (continued  on  next  page) 

GSMA  =  (logarithm  of)  gross  contracts  for  GSMA  enlistments  (Source:  USAREC). 

MELPAY  =  (logarithm  oO  present  value  (@  30%  discounted  factor)  of  Basic  Military 

Compensation  (BMC)  during  a  4-year  enlistment  divided  by  the  present  value 
(@  30%  discounted  factor)  of  earnings  for  18-  to  -21 -year-old  civilian  males 
(CIVEARN);  each  series  is  a  smoothed  five-month  average,  centered  on  the 
current  month.  (-(-) 

BMC,  previously  called  regular  Military  Compensation,  includes  base  pay  as 
well  as  the  allowances  for  housing  and  food  and  the  tax  advantage  of  the 
allowances.  The  calculation  of  BMC  assumes  the  average  time-in-grade  for 
Army  enlistees,  and  that  the  enlistee  is  unmarried  during  his^er  term  of 
service  (Source:  DOD/Compensation). 

CIVEARN  is  constructed  with  average  quanerly  data  on  the  median  earnings 
of  16-  to  -19  and  20-  to-  24-year-old  male,  full-time  workers  (Source:  Bureau 
of  Labor  Statistics  from  Current  Population  Survey). 

UNEMP  =  (logarithm  of)  civilian  unemployment  rate  (Source:  Bureau  of  Labor  Statistics 
from  Current  Population  Survey).  (->-) 

RECR  =  (logarithm  of)  Army  production  recruiters  assigned  zero,  half,  or  full  missions 

(Source:  USAREC).  (-♦-) 

GOALA  =  (logarithm  oO  net  missions  for  GSMA  enlistments  (Source:  USAREC).  (+) 

GOALNOTA  =  (logarithm  of)  net  missions  for  non-GSMA  enlistments  (Source:  USAREC). 
(-) 

ADV  =  (logarithm  of)  sum  of  monthly  placement  expenditures  for  national  print, 

radio,  and  TV  advertising,  each  adjusted  for  inflation  using  separate  media 
cost  price  indexes  (Sources:  USAREC  and  McKann  Erickson).  (+) 

BONUS  =  (logarithm  of)  weighted  average  by  term  of  service  (TOS)  of  average  bonus 
per  taker  times  bonus  program  coverage,  divided  by  the  present  value  of 
civilian  earnings  of  youth  (CIVEARN)  (Sources:  Army  DCSPERS,  USAREC, 
CPS).  (-^) 
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Table  1.  (Concluded) 


BON3 

BON3SQ 

ACF 

POL86 

BUYUP 

DUM688 

DUM489 

SEAS 

MA(k) 


a. 


=  for  only  TOS  =  3,  bonus  per  taker  times  bonus  program  coverage,  divided  by 
the  present  value  of  civilian  earnings  of  youth  (CIVEARN)  (Sources:  Army 
DCSPERS,  USAREC,  CPS).  (+) 

-  BON3  squared.  (-)* 

=  (logarithm  of)  weighted  average  summed  across  TOSs  of  the  present  value  of 
the  maximum  educational  benefits  available  to  Army  enlistees  (ACFPV), 
times  ACF  program  coverage  (ACFCOV)  divided  by  a  cost-of-college  price 
index  —  sum  of  tuition  (four-year  state  university)  plus  room  and  board 
(Sources:  Army  DCSPERS,  USAREC,  Department  of  Education).  (+) 

=  binary  variable  measuring  the  effect  of  the  reinstitution  of  the  mission  box  in 
FY  1986;  equal  to  1.0  in  FY  1986-89  and  0.0  otherwise.  (+) 

=  binary  variable  measuring  the  effects  of  the  bonus  Buyup  program;  equal  to 
1.0  in  June  1987  -  September  1989  and  0.0  otherwise.  (+) 

=  binary  variable  measuring  the  effects  of  a  policy  change  that  limited 
production  of  non-GSMAs  in  June  1988;  equal  to  1.0  in  June  1988  and  0.0 
otherwise.  (+) 

=  binary  variable  measuring  the  effects  of  a  policy  change  in  April  1989  that 
permitted  greater  recruitment  of  ni-B  non-HSDGs;  equal  to  1.0  in  April  1989 
and  0.0  otherwise.  (-) 

=  binary  monthly  seasonal  variables  (omitted  month  is  April). 

=  moving  average  term  (lag  =  k). 


Negative  sign  expected  due  to  the  "law”  of  diminishing  returns. 
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The  primary  use  of  RATSDATA  will  be  to  update  the  REDIN  source  data  file.  The  first 
step  will  be  to  activate  the  File  menu  option  by  pressing  <AU>F.  Use  the  cursor  key  to  highlight 
the  Open  option  and  press  Enter.  The  user  will  be  asked  to  enter  the  name  of  the  data  file  to 
edit.  Enter  the  drive,  path,  and  full  filename  (including  the  .RAT  suffix).  Next,  the  user  must 
activate  the  Series  menu  by  pressing  <Alt>S.  Use  the  cursor  keys  to  highlight  the  Edit  Series 
option  and  press  Enter.  The  user  will  be  presented  with  a  list  of  data  elements  and  descriptions. 
Move  the  cursor  to  the  data  element  that  will  be  edited  and  press  the  <SPACE>  bar  to  highlight 
the  variable.  The  data  will  then  be  displayed.  Use  the  cursor  keys  to  move  to  the  month  to  be 
updated.  After  changes  are  made,  the  user  will  be  asked  to  confirm  the  changes  and  save  the 
data. 

Another  useful  alternative  in  the  Series  option  is  Graph  Series.  Invoking  this  option 
produces  a  graph  of  the  basic  data  series  highlighted.  The  graph  can  be  sent  to  the  screen  or  a 
file.  Using  this  option  is  a  quick  and  easy  way  to  view  data  and  ensure  that  no  large  errors  were 
made  while  editing  the  data.  To  exit  RATSDATA,  activate  the  File  option  and  select  Quit. 

The  final  act  in  any  REDIN  session  will  be  to  End  Session.  Selecting  this  option  returns 
the  user  to  the  DOS  prompt.  The  Turbo  Pascal  source  code  for  the  REDIN  interface  is  shown 
in  Appendix  B. 
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m.  RRS  COST  MODEL 


A.  Prototype  Philosophy 

At  the  outset  of  this  project,  it  was  recognized  that  the  concept  of  a  budget  adjustment 
mechanism  beyond  that  currently  in  existence  may  be  very  difficult  to  sell  to  programmers  and 
budgeteers.  Therefore,  we  chose  to  develop  a  prototype  RRS  that  demonstrates  the  relationships 
between  market  conditions,  recmiting  resources,  and  active  enlisted  recruiting  success.  This 
prototype  would  constitute  a  testbed  for  the  concepts  and  form  the  basis  for  an  expanded 
operational  system.  Because  of  its  flexibility  and  wide  base  of  users  (particularly  budget 
planners),  the  prototype  system  was  developed  using  Lotus  1-2-3  (Rel.  2.01).  Our  primary  goal 
was  to  ensure  that  the  relationships  built  into  the  model  are  both  accurate  and  useful  for  resource 
planning. 

B.  Spreadsheet  Format 

RRS  is  a  spreadsheet  model.  Its  use  does  require  a  basic  knowledge  of  Lotus  1-2-3  (start 
the  program,  retrieve  a  file,  move  about  in  the  spreadsheet,  recalculate  values).  Lotus  does  have 
the  capability  to  be  automated  (known  as  MACROS)  to  the  point  where  users  only  need  to  know 
how  to  Stan  the  program.  But,  automating  procedures  before  they  are  tested  and  accepted  would 
be  a  waste  of  time  and  resources.  Therefore,  RRS  was  not  extensively  automated.  However,  it 
was  designed  with  presentation  screens  that  are  both  functional  and  sophisticated  enough  to  instill 
user  confidence  in  the  technical  soundness  of  the  system. 

C.  RRS  Components 

RRS  contains  three  major  parts  -  the  GSMA  Forecast  Module,  the  Budget  Estimating 
Module,  and  the  Marginal  Cost  Module.  The  basic  operation  of  the  model  is  one-way  with  a 
feedback  loop  to  guide  future  decisions.  That  is,  the  GSMA  Forecasting  Module  takes  as  inputs 
the  environment  and  resource-related  variables  to  generate  a  GSMA  forecast.  Using  changes  in 
resource  variables,  changes  to  the  base  year  budget  are  calculated  in  the  Budget  Estimation 
Module.  At  this  point,  the  analyst  has  the  GSMA  mission  (basic  input  variable),  a  GSMA 
forecast,  and  a  budget  estimate  for  the  forecast  year.  A  typical  application  of  RRS  would  be  to 
add  or  subtract  recruiters,  advertising,  ACF,  or  enlistment  bonuses  until  missions  and  forecasts 
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are  equal.  To  guide  this  decision,  esrimates  of  the  marginal  cost  of  achieving  one  additional 
GSMA  contract  for  the  four  major  resource  variables  are  calculated  and  displayed  in  the  Marginal 
Cost  Module.  The  cost  minimizing  behavior  would  be  to  add  resources  where  the  marginal  cost 
is  low  and  subtract  resources  where  the  marginal  costs  are  high  until  the  marginal  costs  are  equal. 

The  basic  structure  of  RRS  allows  an  analyst  to  iteratively  solve  for  the  optimal  (cost 
minimizing)  active  enlisted  budget  to  meet  mission.  But  it  does  not  force  a  solution  that  may 
be  unachievable  in  the  shortrun.  The  operation  of  each  component  module  of  RRS  will  be 
described  separately. 

1.  GSMA  Forecasting  Module. 

This  module  has  five  basic  components.  First,  is  the  basic  input  data  section.  Included 
here  is  all  of  the  monthly  data  used  in  the  REDIN  forecasting  model.  Data  prior  to  the  Baseline 
Budget  Year  (1989)  is  not  currently  used.  The  next  section  contains  the  transformed  data 
required  for  the  forecast.  For  example,  the  raw  data  for  the  advertising  variable  is  the  placement 
dollars  for  radio,  television,  and  print  advertisements.  To  calculate  the  variable  used  in  the 
model,  each  raw  placement  dollar  value  is  deflated  by  an  advertising  cost  index,  added  together, 
and  the  natural  logarithm  of  the  result  is  calculated.  Because  the  basic  input  data  is  monthly,  and 
budgeting  is  done  on  an  annual  basis,  a  section  of  the  data  module  is  dedicated  to  calculating 
annualized  base  and  forecast  year  data. 

The  next  part  contains  the  equation  coefficients  (or  elasticities).  The  variables  used  for 
forecasting  GSMA  contracts  in  RRS  are  identical  to  those  used  in  REDIN.  As  currently 
configured,  the  equation  coefficients  are  also  the  same  with  the  exception  of  advertising.  The 
REDIN  estimate  (.02)  was  considered  out  of  line  as  compared  to  results  from  recent  battalion 
level  time-series  cross-sections  (TSCS)  estimates  and  those  from  prior  RAND  studies.  Therefore, 
an  elasticity  of  .05  was  adopted. 

The  forecasting  methodology  used  in  RRS  is  slightly  different  from  that  used  in  REDIN. 
RRS  Stans  with  a  base  year.  The  user  has  the  option  of  using  the  base  year  GSMA  achievement 
as  the  starting  point  for  the  forecast  or  an  assumed  value  such  as  the  REDIN  forecast  for  the  base 
year.  Granges  in  the  model  variables  between  the  base  and  forecast  year  are  calculated.  These 
are  then  multiplied  by  the  equation  coefficients  and  summed.  This  quantity  is  then  added  to  the 
logarithm  of  the  base  year  GSMA  achievement  and  the  anti-log  is  calculated.  Unlike  REDIN, 
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which  uses  a  bottoms-up  calculation,  the  prototype  RRS  forecasts  are  based  on  changes  in  input 
variables  from  one  year  to  the  next. 


2.  Budget  Estimating  Module. 

The  Budget  Estimating  Module  has  two  parts.  The  first  part  contains  per  unit  cost 
estimates  or  budget  element  elasticities.  These  are  shown  in  table  2  and  were  obtained  from  the 
Cost  Factor  Handbook  (FY  88189)  compiled  by  USAREC’s  Resource  Management  and  Logistics 
Directorate.  As  shown,  each  cost  element  is  associated  with  a  resource  factor.  The  primary 
resource  factors  are  recruiters,  GSMA  contracts,  and  total  mission. 


Table  2.  Cost  estimating  factors  in  RRS  prototype  (continued  on  next  page) 


Cost  Factors 

Cost/ 

Elasticity 

P72 

Level 

P81 

Recr 

260 

P87 

A.  CIV  PAY 

GSMA 

0.15 

B.  VEHICLES 

* 

Recr 

3,741 

C.  BACH  HOUSING 

Level 

D.  COI/DEP/ED  TR 

Dl.  COI 

Level 

D2.  DEP 

Level 

D3.  ED  TOURS 

Level 

D4.  NURSE  TOURS 

Level 

E.  RCTR  EXP  ALLOW 

Recr 

720 

F.  APPL  M/L/T 

Mission 

97 

G.  MIL  AWARDS 

Recr 

H.  BRAC 

Level 

Table  2.  (concluded) 
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Tablv  2.  (continued) 


INTERNS 

Level 

COMMUNICATIONS 

Recr 

2,000 

P87 

TOTAL 

P9b 

Level 

TOTAL 

OMA 

MILITARY  PAY 

Recr 

36,769 

ENLISTMENT  BONUS 

Direct 

ARMY  COLLEGE  FUND 

Direct 

" 

i.. 

Those  K'ctors  labeled  'level "  are  cand'dates  for  manual  adjustment.  The  factors  labeled  "direct ' 
iire  calculated  di:ecily  in  the  Budget  Calculation  section.  P  e  elasticity  associated  with  cost 
elements  are  one  way  only.  "Piat  is,  a  change  in  the  factor  does  nor  increas"  the  supply  of 
CiSMA  recruits,  hut  a  change  in  GSMA  recruits  does  change  the  amount  needed  for  that  cost 
element. 

The  workhorse  of  the  Budget  Estimating  Module  is  the  Budget  Calculation  section.  This 
display  IS  modeled  after  that  used  by  the  Resource  Management  Directorate  in  their  existing 
spreadsheet  applications.  In  addition,  we  have  included  cost  elements  other  than  those  in  the 
Operations  and  Maintenance  accounts  (OMA).  Although  not  directly  controlled  by  USAREC. 
these  cost  elements  are  included  as  part  of  the  recruiting  budget  in  OSD  displays.  Mu-h  like  the 
forecasting  module,  the  Budget  Calculation  section  bases  requirements  in  the  forecast  year  on 
changes  from  the  base  year.  A  sample  output  of  this  spreadsheet  section  is  shown  in  table  3. 
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Table  3.  RRS  budget  display  (continued  on  next  page) 


Table  3.  (continued) 


N.  MISSION  TRVL 
P.  RETR  TRNG  PRD 
R.  CIV  TRNG 

T.  TOUR  EXHIBITS 

U.  STUDIES 

V.  FAMILY  LIFE 

W.  TAIR 

Z.  OTHER  SUMMARY 
Zl.  UPGRADE  FAC 
Z2.  SUPPLIES 
Z3.  PRINTING 
Z4.  SUBSCRIPTIONS 
Z5.  CONTINGENCY 
Z6.&  Z8.  OTHER 
Zl.  POSTAGE 
Z9.  PFES 


P871712  ADVERT 
|[  INTERNS 
COMMUNICATIONS 
P87  TOTAL 


MILITARY  PAY 
ENLISTMENT  BONUS 
ARMY  COLLEGE  FUND 


Table  3.  (concluded) 


TOTAL  ENLISTED  PROGRAM 

S592350 

$10,553 

$602,903 

— 

3.  Marginal  Cost  Module. 

RRS  forecasts  react  to  changes  in  the  recruiting  environment  (unemployment,  civilian  pay, 
college  and  media  inflation).  They  also  are  influenced  by  four  major  recruiting  resource  elements 
-  recruiters,  advertising,  ACF,  and  enlistment  bonuses.  All  other  things  equal,  increasing  the 
supply  of  GSMA  recruits  requires  increasing  one  or  more  of  these  resource  factors.  As  a  guide 
for  what  to  change,  estimates  of  the  marginal  cost  of  increasing  the  supply  of  GSMA  contracts 
by  one  are  calculated  and  displayed  Ln  this  module.  A  sample  display  is  shown  in  table  4. 

Table  4.  RRS  marginal  cost  estimates 


Marginal  Cost  per  GSMA 

Recruiters 

$12,462 

Advertising 

Print 

$12,212 

Radio 

$11,356 

TV 

$12,069 

Enl  Bonus 

ACF(Coverage) 

$6,288 

RRS  Summary  Display.  RRS  includes  a  section  that  organizes  data  from  all  parts  of  the 
spreadsheet  into  a  single  display,  as  shown  in  table  5. 
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Table  5.  iRS  summary  display  (continued  on  next  page) 


RECRUITING  RESOURCING  COST  MODULE 


Forecast  Summary 


Base 


Forecast 


Percent 


Year 


Year 


Change 


Active  Enlisted  Budget 


$592,350 


$602,903 


1.78% 


!|  GSMA  Enlistments 


50,896 


52,407 


1.91% 


GSMA  Goal 


51,554 


56,983 


10.53% 


Other  Goal 


73,129 


39,927 


-45.40% 


Resource  Variables 


Recruiters 


I  Print  Advertising 


5,789 


$4,142 


5,954 


$3,850 


2.85% 


-7.06% 


Radio  Advertising 


$3,684 


$4,111 


11.60% 


II  TV  Advenising 


$21,013 


$23,451 


11.60% 


ACF  Coverage 


65.0% 


68.9% 


6.00% 


Avg  Value  of  ACF  (PV) 


$4,182 


$4,18: 


0.00% 


3-Yr  Bonus  Coverage 


21.4% 


21.4% 


0.00% 


Avg  Value  3-Yr  Bonus  (PV) 


$3,636 


$3,991 


9.75% 


Military  Pay  (PV) 


$43,980 


$45,718 


3.95% 


Environmental  Variables 
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Table  5.  (concluded) 


D.  Sample  Application 

Assume  for  the  moment  that  the  end  of  the  Cold  War  and  budget  pressures  have  reduced 
the  total  enlisted  recruiting  mission  to  90,000.  Based  on  historical  guidelines,  12%  of  the  mission 
will  be  female,  63%  will  be  GSMAs,  and  no  more  than  5%  will  be  male  non-high  school 
graduates.  This  equates  to  a  mission  of  47,400  GSMAs,  27,900  GSMBs,  and  14,700  others.  Our 
first  step  will  be  to  split  the  spreadsheet  screen  into  two  horizontal  windows.  The  top  window 
should  contain  the  Optimize  display  (see  table  6)  while  the  bottom  window  should  contain  the 
Annual  Data  area.  Next,  move  to  the  Annual  Data  area  and  input  these  numbers  as  the  missions 
for  the  forecast  year  and  recalculate  the  spreadsheet. 
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Table  6.  RRS  optimization  information  display 


1  Estimated  Marginal  Cost 

Recruiters 

$12,462 

Total  $ 

$602,903 

Adverdsiiig 

Change  $ 

10,553 

Print 

$12,212 

Radio 

$11,356 

GSMA  Fcst 

52,407 

TV 

$12,069 

GSMA 

GOAL 

56,983 

Enl  Bonus 

$0 

ACF(Coverage) 

$6,288 

ACF(Offering) 

$11,009 

The  forecast  exceeds  GSMA  missions.  Therefore,  a  reduction  in  resources  is  indicated. 
The  resource  factors  with  the  highest  marginal  costs  are  recruiters  and  advertising  (print  and  TV). 
The  user  would  first  reduce  the  number  of  recruiters  by  some  amount  (say,  4(X)  recruiters).  The 
marginal  cost  of  recruiters  is  now  less  than  print  advertising.  The  user  will  then  drop  print  and 
TV  advertising  until  the  marginal  costs  arc  about  the  same  as  for  recruiters.  This  process 
continues  until  the  GSMA  forecast  equals  the  GSMA  goal.  If  feasible,  we  would  recommend 
increasing  those  resource  elements  that  have  low  marginal  costs  and  reducing  those  with  higher 
marginal  costs  unil  the  marginal  costs  are  equal  (or  nearly  so).  For  this  exercise,  changing  the 
ACF  coverage  or  offering  was  assumed  outside  the  control  of  USAREC. 

The  solution  to  this  example  results  in  the  following  resource  changes: 


Recruiters 

5,789 

5,000 

(13.63%) 

Print  Advertising 

$  4,142 

$  3,850 

(7.06%) 

TV  Advertising 

$21,013 

$19,000 

(9.58%) 

Radio  Advertising 

$  3,684 

$4,111 

(11.6%) 
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The  total  Active  Enlisted  Budget  is  reduced  by  just  over  11%.  The  final  step  is  to  perform  a 
REDIN  forecast  using  the  iccommended  resource  changes  to  confum  the  RRS  forecast. 

E.  RRS  Extensions 

In  It:;  current  statr.  RRS  is  limited  to  a  base  year  and  one  forecast  year.  Program 
planning  involves  planning  over  a  five-  -  seven  year  horizon.  Clearly,  our  abilities  to  forecast 
the  recrui; Tig  enviro:imen.  'cyond  one  year  is  limited.  However,  planners  are  required  to  make 
estimiates  beyond  this  short  period.  Therefore,  they  should  have  a  tool  that  accomim.odatcs  this 
need.  However,  development  of  extensions  must  not  be  out  in  front  of  development  of  the 
concepts. 

Other  extensions  include  adding  graphical  displays  and  automating  the  goal-seeking.  With 
only  two  years  of  data,  graphics  are  not  required.  With  the  addition  of  more  forecast  years, 
graphic  displays  would  greatly  enhance  the  usefulness  of  the  system.  As  you  add  more  forecast 
years,  the  interactive  method  of  optimizing  resources  becomes  more  cumbersome.  Having  an 
automatic  goal-seeking  procedure  would  be  of  great  benefit. 
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IV.  CONCLUSIONS 


L  SAREC  ’s  facing  very  challenging  resourcing  problems.  The  pressure  exened  by  the 
national  oudget  deficit  to  make  wholesale  reductions  in  military  manpower  programs  is  strong. 
The  onl\  reiu  lin-  of  defense  will  be  budget  estimates  that  are  rationally  tied  to  the  recruiting 
environ-'  ent  and  'ccruiting  missions.  RRS  is  a  significant  step  in  that  direction. 

T’le  RED'  i  Forecasting  Model  is  the  first  econometric  model  that  obtained  plausible  and 
significant  coefficients  tor  all  major  r  cruiting  resource  elements.  With  the  exception  of 
enlistment  bonuses,  all  variables  were  direedy  linked  to  budget  elements.  With  the  REDIN  front- 
end.  LS.XREC  has  a  powertn!  tool  to  monitor  the  recruiting  environment. 

RRS  and  REDIN  now  need  time  to  be  tried.  Only  through  real-world  exercise  can  the 
coneept.s  ot  RRS  be  brought  to  an  open.aonal  state. 
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APPENDIX  A 


Sample  RATS  Output 


RATS  Version  3.10.  02/01/90 

Copyright  (c)  1986-90  by  VAR  Econometrics 

Portions  (c)  1988-90  by  Doan  Associates 

BMA  DATA  15  -0  GLOPAL  1000  COM  1000  CON  500  EXP  100  LOCAL  50  $ 
OPERANDS  100 
OUTPUT  NOECHO 
T126RM 

ARMY  1-3A  ENLISTMENT  CONTRACTS  FOR  12  6’S  BY  RECRUITING  MONTH 
(SOURCE:  USAREC) 

GSMARM 

ARMY  GSMA  CONTRACTS  BY  RECRUITING  MONTH  (SOURCE:  USAREC) 

T126CM 

ARMY  1-3A  ENLISTMENT  CONTRACTS  FOR  12  6’S  BY  CALENDAR  MONTH  (SOURCE: 
USAREC) 

GSMACM 

ARMY  GSMA  CONTRACTS  BY  CALENDAR  MONTH  (SOURCE:  USAREC) 

DAYSRM 

DAYS  PER  RECRUrnNG  MONTH  (SOURCE:  USAREC) 

PVWK1821 

PVMILPAY 

UNEMP 

ACTl  /\L  AND  FOREC/.STED  UNEMPLOYMENT  FOR  USE  IN  CONTRACT  FORECASTS 
ACFEXPT 

EXPECTED  VALUE  OF  ACF  BENERTS  -  WEIGHTED  AVERAGE  ACF  BENEFITS  TIMES 
COVERAGE 
ACFCOV 

MOS  COVERAGE  OF  ACF  BENEFITS  -  WEIGHTED  AVERAGE  @  AVG  TOS  NPS 
MALES  FY  80-89 
ACFPV 

PRESENT  VALUE  OF  ACF  BENEFITS  -  WEIGHTED  AVERAGE  @  AVG  TOS  NPS 
MALES  FY  80-89 
COLLCOST 
BONUS3 
BONCOV3 
AGLM13A 

COMBINED  SENIORS  AND  HSDG  1-3A  ARMY  CONTRACT  MISSIONS 
AGLM3B 
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ARMY  NFS  MALE  HSDG  CONTRACT  MISSIONS:  MC  =  3B 
AROGOAL 

ARMY  MISSIONS  FOR  OTHER  MALES,  FEMALES,  AND  PRIOR  SERVICE  (USAREC) 
ARECPA 

ARMY  RECRUITERS  (ARECPA  IS  66.6%  OF  ARMYTREC) 

TV 

NATIONAL  TV  ADVERTISING  EXPENDITURES  (SOURCE:  USAREC) 

RADIO 

RADIO  ADVERTISING  EXPENDITURES  (SOURCE:  USAREC) 

PRINT 

PRINT  ADVERTISING  EXPENDITURES  (SOURCE:  USAREC) 

ADVPDTV 

ADVPDRAD 

ADVPDMAG 


Series 

CONSTANT  (  0  ) 

Series 

RELPAY 

(  9) 

Series 

UNEMP 

(  10) 

Series 

GOALA 

(  21  ) 

Series 

GOALNOTA  (  22  ) 

Series 

ARECPA 

(  26) 

Series 

ADV 

(  27) 

Series 

ACF 

(  11) 

Series 

BON3 

(  16) 

Series 

BON3SQ 

(  17) 

Series 

BUYUP 

(  35) 

Series 

POL86 

(  36) 

Series 

DUM688 

(  38) 

Series 

DUM489 

(  37) 

Series 

SEAS 

(  34  )  LAGS  -2  TO  0 

Series 

SEAS 

(  34  )  LAGS  -10  TO  -7 

Series 

MVG  AVGE  (  -1  ) 

LAGS  1  TO 

Series 

MVG  AVGE  (  -1  ) 

LAGS  7  TO 

**WARNING  21  Unsatisfactory  Initial  Estimates.  Last  MA  Set  to  Zero. 

**WARNING  21  Unsatisfactory  Initial  Estimates.  Last  MA  Set  to  Zero. 

**WARNING  21  Unsatisfactory  Initial  Estimates.  Last  MA  Set  to  Zero. 

**WARNING  21  Unsatisfactory  Initial  Estimates.  Last  MA  Set  to  Zero. 

CONVERGENCE  REACHED  ON  ITERATION  41 


EQUATION  1 

DEPENDENT  VARIABLE  4  GSMACM 
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FROM  80:10  UNTTL  89:  9 

TOTAL  OBSERVATIONS  108  SKIPPED/MISSING  0 

USABLE  OBSERVATIONS  108  DEGREES  OF  FREEDOM  83 
R**2  .95106052  RBAR**2  .93690935 

SSR  .25674379  SEE  .55617431E-01 

DURBIN-WATSON  1.95326240 

Q(  26)=  27.6831  SIGNIHCANCE  LEVEL  .374224 

NO.  LABEL  VAR  LAG  COEFRCIENT  STAND.  ERROR  T-STATISTIC 

***  ***  ***  *]tc4<***«i|<**il<*  ********^*11* 


1 

CONSTANT  0  i 

0  3/61701 

2.933158 

1.180196 

2 

RELPAY 

9  0 

1.160090 

.5605583 

2.069527 

3 

UNEMP 

10  0 

.7619555 

.1266181 

6.017744 

4 

GOALA 

21  0 

.1285634 

.5204324E-01 

2.470310 

5 

GOALNOTA  22 

0  -.1329527 

.4464063E-01  -2.978289 

6 

ARECPA 

26  0 

.3468677 

.3284425 

1  056099 

7 

ADV 

27  0 

.2268002E-01 

.1357177E-01 

1.671117 

8 

ACF 

11  0  . 

.1424108 

.4532289E-01 

3.142139 

9 

BON3 

16  0 

3.695318 

4.770987 

7745395 

10 

BON3SQ 

17  0 

-64.09608 

105.8816 

-.6053559 

11 

BUYUP 

35  0 

.9944098E  01  .3909786E-01  2.543386 

12 

POL86 

J6  0 

.1495422 

.3344487E-01 

4.471303 

13 

DUM688 

38  0 

.1402962 

.5234005E-01 

2.680476 

14 

DUM489 

37  0 

-.1952246 

.5412922E-01 

-3.606640 

15 

SEAS 

34  -2 

.1608442 

.1 92295 lE-01 

8,364448 

16 

SEAS 

34  -1 

.7494521E-01 

.1932909E-01 

3.877327 

17 

SEAS 

34  0 

.8019657E-01 

.2197501E-01 

3.649445 

18 

SEAS 

34  -10 

-.1437797 

.2288546E-01 

-6.2825/8 

19 

SEAS 

34  -9 

.8167688E-01 

.2139285E-01 

3.817953 

20 

SEAS 

34  -8 

.161850^ 

.1982624E-01 

8.163441 

21 

SEAS 

34  -7 

.1659229 

.2314135E-01 

7.169975 

22 

MVG  AVGE  -1 

1  .3431384 

.1041454 

3.294802 

23 

MVG  AVGE  - 1 

2  .272084J 

.1052231 

2.585787 

24 

MVG  AVGE  - 1 

3  .4019551 

.1000456 

4.017721 

25 

MVG  AVGE  -1 

7  -.3685378 

.9989340E-01  -3.689311 

Goal 


56983.00 
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Forecast 


55887.55 


REDIN 


1.019601 


NORMAL  COMPLETION  OF  JOB 
HALT  AT  0 

0  ERRORS  4  WARNINGS 
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APPENDIX  B 


REDIN  Turbo  Pascal  Source  Code 


{$R-}  {Range  checking  off} 

{$B+)  (Boolean  complete  evaluation  on) 

{$S+}  { Stack  checking  on } 

{ $1+ )  { I/O  checking  on } 

{$N-)  (No  numeric  coprocessor} 

{$M  6000,0,40000} 

{  REDMAIN.PAS  -  RATS386  Interface  Program  } 

{  Purpose:  redmain.pas  is  the  driver  program  } 

{  Calling  Program/Procedure:  red.exe  } 

{  Written:  07/19/90  :  for  Jeff  Barnes  } 

{  Last  Revised:  08/08/90  :  by  Jack  R.  Dempsey  } 

{  Human  Resources  Research  Organization  } 

{  (703)  549-3611  } 


program  redmain; 

(Sr-)  {r+  enable  i  rangechecking} 

{$v-}  (v-  allows  passing  string  parameters  of  unequal  lengths} 


Uses 

Crt,  (Unit  found  in  TURBO.TPL} 

Dos, 

Printer, 

Turbo3,  (Unit  found  in  TURB03.TPU} 
Winman, 

Windows; 

{$i  gutildcl.pas} 

{$i  gutilfwd.pas} 

{$i  winfw.pas} 

{$i  int.pas} 

{$i  gutilcod.pas) 

{$i  wined. pas} 
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const 


controlpoints  =5; 
max_mos  =  10; 

valid_eoflds  ;  allchars  =  [key_cr,key_esc,key_tabjcey_btab,key_uarr, 

key_darr,key_larr,key_rarr]; 

valid_terms  :  allchars  =  [key_cr,key_escJcey_tab,key_btab,key_uarT, 

key_darr,key_larr,key_rarr]; 

type 

days  =  (Sunday, Monday,Tuesday,Wednesday,Thursday, Friday, Saturday); 
months  =  (January  d^ebn'iry,March,April>IayJuneJuly,August,September, 
C)ctober,November,December); 
c_dw  =aiTay[0..6]  of  string[9]; 

c_mm  =array[1..12]  of  string[9]; 

cntrLrec  =  record 

cntrl  :  array[1..10]  of  integer; 
rats_path_sys  :  string[30]; 
end; 


label  166,ginny,lynn,exwife,lilian,barbara,diane, 
martha,debbie2,michelle,michelle  1  ,debbie3, 
denee,18,133,e2,e4,e6,e7,e8,e9,e  1 0,e  1 1  ,e  1 2, 

19,dl,d243,d4,d5,d6,d7,d8,d9,dl0,dll412; 

const 

dw  ;  c_dw  =  (’Sunday’, ’Monday’, ’Tuesday’, ’Wednesday’, ’Thursday’, ’Friday’, ’Saturday’); 
mm  :  c_mm  =  (’January’,’Febrary’,’March’,’Aprir,’May’,’June’, ’July’, ’August’, ’September’, 
’October’, ’November’, ’December’); 


var 

dys  :  arTay[0..13]  of  real; 

c_rec  :  cntrl_rec; 

cntrldata  ;  file  of  cntrl_rec; 

job5data  :  text; 
dataset  :  text; 

report  :  text; 

buf  :  stnng[80]; 
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job5_data 

in_file 

old_file 

model_file 

out_file 

rats_path 

graph_path 

rcg_sta_mo 

rcg_sta_yr 

for_sta_ino 

for_sta_yr 

reg_end_mo 

rcg_end_yr 

for_end_mo 

for_end_yr 

time_factor 

plot_trend 

graph_resias 

plot_rcsids 

graph_for 

plot_for 

dtype 

nat 

dis 

step 

deflator 

d_name 

graph_run 

style 

levels 

raw 

noest 

noech 

nodet 

nocov 

nores 

nocrs 

res3 

inv 

graph 

temp_str 

ttype 

stats 

nent 

tyn 


:  string[12]; 

;  string[30]; 

:  string[30]; 

:  string[30]; 

:  string[30]; 

:  string[30]; 

;  string[30]; 

;  integer, 

:  integer, 

;  integer 
:  integer, 

:  integer, 

:  integer, 

:  integer; 

:  integer; 

:  integer, 

:  string[l]; 

:  string[l]; 

:  string[l]; 

:  string[l]; 

:  string[l]; 

:  string[l]; 

:  string[l]; 

:  string[l]; 

:  integer, 

:  string[l]; 

:  string[8]; 

:  string[l]; 

:  string[l]; 

:  string[l]; 

:  string[l]; 

:  string[l]; 

:  string[l]; 

:  stringil]; 

:  string[l]; 

:  string[l]; 

;  string[l]; 

:  array[1..28]  of  string[8]; 

:  array[l..28]  of  string[9]; 

:  array[1..28]  of  string[l]; 
:  string[3]; 

:  string[l]; 
string[l]; 

:  real; 

:  integer. 
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method  ;  string[35]; 

tit  :  string[35]; 

nobs  :  real; 

maxit  :  integer, 

depend  :  siring[8]; 

dependx  ;  string!  8]; 

nper  :  real; 

carg  :  real; 

page  :  integer; 

line_no  :  integer, 

tenn_option  :  char, 

choice  :  integer, 

nvic  :  integer, 

icurr_sel  ;  integer, 

drive  :  char, 

drive_sel  :  integer; 

end_read  :  integer, 

fy  ;  real; 

col/ow  :  integer, 

sample  ;  string!  1]; 

trend  ;  string!!]; 

win_no  ;  integer; 

win_l  :  integer, 

win_2  :  integer, 

ij,k,m  :  integer, 

term_char  :  char, 

cval  :  string!!]; 

rval  :  real; 

da,yr,mo,dte  :  real; 

ival  :  integer 

fld_no  ;  integer; 

code,nsplits  ;  integer; 

help_scn  :  varstring; 

finished_entering:  boolean; 

finished_scn  :  boolean; 

main_pgm  :  file; 

pgm_sel  :  integer, 

set_flag  :  integer, 

trans_total  ;  integer; 

model  :  integer, 

oper  :  array!!.. 28]  of  integer; 

transjn  :  array!!..  18]  of  string!70]; 

trans_out  ;  array!!. .18]  of  string!70]; 

flag  ;  integer; 

nvic^rat  :  integer; 
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exist  :  boolean; 

hour,minute,second,sec  100, year, month,day,dayofweek  :  word; 


procedure  warn; 
begin 

sound(660); 

delay(200); 

nosound; 

end; 

procedure  reset_sys; 
begin 

assign(cntrldata,’redcntrl.sys’): 

reset(cntrldata); 
with  c_rec  do 
begin 

cntrlfl]:=0; 

cntrl[2]:=0; 

for  j:=3  to  10  do  cntrl[j]:=0; 
write(cntrldata,c_rec); 
pgm_sel:=0; 
end; 

close(cntrldata); 

end; 

procedure  options; 
begin 
jump(l); 
write(trend); 
jump(2); 

write(graph_resids); 

jurnpO); 

write(graph_for); 

jump(4); 

write(dtype); 

jump(5); 

write(stats); 

jump(6); 

write(style); 

jump(7); 

end; 

procedure  estimate; 
begin 

reset_screen(singleb,0,white,blue); 
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gct_win(iow(  ’exec  ’  ,win_no) ; 
set_window(win_no,  1,1); 
gotoxy(2,7); 
clreol; 

goioxy(25,7); 
case  model  of 

1:  begin 

write( ’Writing  Rats  Source  Program’); 
swapvectors; 

exec( ’Vommand.com ’,’/C  redols’); 

if(DosErroroO)  then 

begin 

Writeln(’Dos  Error  #  ’.doserror); 
delay(5000); 
end; 

swapvectors; 

gotoxy(2,9); 

clreol; 

gotoxy(25,9); 

write(’Unemployment  Source  Program  Complete’); 

dclay(500); 

gotoxy(2,ll); 

clreol; 

gotoxy(25,ll); 
write(’Loading  RATS  ’); 
gotoxy(2,15); 
clreol; 

gotoxy(32,15); 

Textcolor(30); 
write(’Standby  ....  ’); 
textcoIor(7); 
swapvectors; 

exec(Vommand.com’,’/C  ’+rats_path+’Vats386  alloc.sys  ’'K)ut_file); 

if(DosErroroO)  then 

begin 

Writeln(’Dos  Error  #  ’.doserror); 
delay(5000); 
end; 

swapvectors; 
end;  {model  1) 

2;  begin 

write(’Wriring  Rats  Source  Program’); 
swapvectors; 

exec(  Vommand.com ’,’/C  redem’); 
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if(DosErroroO)  then 
begin 

Writeln(’Dos  Error  #  ’.doserror); 
delay(5000); 
end; 

swapvectors; 

gotoxy(2,9); 

clreol; 

gotoxy(25,9); 

write(’Eamings  Source  Program  Complete’); 

delay(500); 

gotoxy(2,ll); 

clreol; 

gotoxy(25,l  1); 
write(’Loading  RATS  ’); 
gotoxy(2,15); 
clreol; 

gotoxy(32,15); 

Textcolor(30); 
write( ’Standby  ....  ’); 
textcolor(7); 
swapvectors; 

exec(’Vommand.com’,’/C  ’+rats_path+’\rats386  alloc.sys  ’+out_file); 

if(DosErroroO)  then 

begin 

Writeln(’Dos  Error  #  ’.doserror); 
delay(5000); 
end; 

swapvectors; 
end;  {model  2} 

3:  begin 

write(’Writing  Rats  Source  Program’); 
swapvectors; 

exec( ’Vommand.com ’,’/C  redfe’); 

if(DosError<>0)  then 

begin 

Writeln(’Dos  Error  #  ’,doserror); 
delay(5000); 
end; 

swapvectors; 

gotoxy(2,9); 

clreol; 

gotoxy(25,9); 

write(’Source  Program  Complete’); 
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delay(500); 

gotoxy(2,ll); 

clrcol; 

gotoxy(25,ll); 

write( ’Loading  RATS  ’); 

gotoxy(2,15); 

clreol; 

gotoxy(32,15); 

Textcolor(30); 
write( ’Standby  ....  ’); 
textcolor(7); 
swapvectors; 

exec(’Vomniand.com’,’/C  ’+rats_path+’\rats386  alloc.sys  ’-K)ut_rile); 

if(DosErroroO)  then 

begin 

Writeln(’Dos  Error  #  ’,doserror); 
delay(5000); 
end; 

swapvectors; 
end;  {model  3) 
end;  {case  of  model) 

end;  {procedure  estimate) 

procedure  var_read_data; 
label  next, exit: 

begin 

assign(dataset,’varin.sys’); 

rewrite(dataset); 

writeln(dataset,’OPEN  DATA  ’,in_rile); 

writeln(dataset,’DEDlT  ’,in_rile); 

writeln(dataset,’CAT’); 

writeln(dataset,  ’END  ’ ); 

close(dataset); 

swapvectors; 

exec ( ’Ncommand.com ’,’/C  ’+rats_path+’\rats  varin.sys  varout.sys’); 

ifCDosErroroO)  then 

begin 

Writeln(’Dos  Error  #  ’,doserror); 
delay(2(XX)); 
end; 

swapvectors; 

assign(dataset,’varout.sys’);; 

{$i-) 
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reset(ciataset); 

{$i+) 

exist:=  (iorcsult  =  0); 
flag;=0; 
nvic_rat:=0; 
j:=0; 

if  exist  then 
begin 

while  not  eof((iataset)  do 
begin 

readln(dataset,buf); 

if(copy(buf,2,3)=’CAT’)  then  flag:=l; 
if(flag=0)  or  (copy(buf,2.3)=’CAT’)  then  goto  next; 
if(copy(buf,2,3)=’END’)  then  goto  exit; 
if(length(copy(buf,6,8))>0)  then 
begin 

res3  [  1  +(6*j)]  ;=copy(buf,6,8); 
nvic_rat:=nvic_rat+ 1 ; 
end; 

if(length(copy(buf,19,8))>0)  then 
begin 

res3[2+(6*j)];=copy(buf,19,8); 
nvic_rat:=nvic_rat+ 1 ; 
end; 

if(length(copy(buf,32,8))>0)  then 
begin 

res3[3+(6*j)]  ;=copy(buf,32,8); 
nvic_rat;=nvic_rat+ 1 ; 
end; 

if(length(copy(buf,45,8))>0)  then 
begin 

res3[4+(6*j)];=copy(buf,45,8); 
nvic_rat:=nvic_rat+ 1 ; 
end; 

if(Iength(copy(buf,58,8))>0)  then 
begin 

res3[5+(6*j)]:=copy(buf,58,8); 
nvic_rat:=nvic_rat+l ; 
end; 

if(length(copy(buf,71,8))>0)  then 
begin 

res3[6+(6*j)]  :=copy(buf,7 1 ,8); 
n  vic_rat:=n  vic_rat+ 1 ; 
end; 
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next: 

end; 

exit: 

close(dataset); 

if(nvic_rat>28)  then  nvic_rat:=28; 

if(nvic<=0)  then 

begin 

nvic;=nvic_rat; 
for  j:=l  to  nvic  do 
begin 

inv{j]:=’Include 

end; 

end; 

end; 

end; 

procedure  save_red; 

label  14; 

begin 

gotoxy(2,23); 

clreol; 

gotoxy(32,23); 
textcolor(30); 
write(’Saving  Data’); 
textcolor(7); 

assign(job5data,’red.sys’); 

{$i-) 

reset(job5data); 

{$i+} 

exist:=  (ioresult  =  0); 
if  exist  then 
begin 

rewrite(job5data); 

writeln(job5data,tit); 

writeln(job5data,method); 

writeln(job5data,in_file); 

writeln(job5data,modeLfile); 

writeln(job5data,out_file); 

writeln(job5data4-ats_path); 

writeln(job5data,graph_path); 

writeln0ob5data,nobs:4:0); 

writeln(job5data,nent:2:0); 

writeln(job5data,nper:3:0); 

writeln(job5data,niodel:  1 ); 

writeln(job5data,ttype); 


44 


writeln(job5datajeg_sta_mo); 

writeln(job5datiM«g_sta_yr); 

writeln(job5datajeg_end_mo); 

writeln(job5datajeg_end_yr); 

writelti(job5daia,for_sta_mo); 

wTiteln(job5data,for_sta_yr); 

writeIn(job5data,for_end_mo); 

writeln(job5data,for_end_yr); 

writeln(job5data,nvic); 

writeln(job5data,nvic_rat); 

writeln(job5data,trend); 

writeln(job5data,stats); 

writeln(job5data,graph_resids); 

writeln(job5data,sample); 

writeln(job5data,graph_for); 

writeln(job5data,plot_for); 

writeln(job5data,dtype); 

writeln(job5data,nat); 

writeln(job5data,dis); 

writeln(job5data,graph_run) ; 

writeln(job5data,levels); 

WTiteln(job5data,deflator); 

writeln(job5data,d_name); 

writeln(job5data,styIe); 

writeln(job5data4’aw); 

for  j:=l  to  nvic  do 

begin 

if(copy(inv[j],l,l)=’C’)  and  (j>nvic_rat)  then  goto  14 

writeln(job5data^s3[j]); 

writeln(job5data,inv[j]); 

14: 

end; 

for  j:=l  to  18  do 
begin 

writeln(job5data,transJn[j]); 

end; 

for  j:=l  to  18  do 
begin 

writeln(job5data,trans_out(j]); 

end; 

cIose(job5data); 

end; 

end; 

procedure  recall_red; 
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begin 

assign(job5data,’rcd.sys’);; 

{$i-) 

reset(job5data): 

{$i+} 

exist:=  (ioresuli  =  0); 
if  exist  then 
begin 

reset(job5data); 

readln(job5data,tit); 

readln0ob5data,method); 

readln(job5data,in_file); 

readln(job5data,modeI_file); 

readln(job5data,out_fiIe); 

readln(job5data,rats_path); 

readln(job5data,graph_path); 

readln(job5data,nobs); 

readln(job5data,nent); 

readln(job5data,nper); 

readln(job5data,model); 

readln(job5data,ttype); 

readln(job5data,reg_sta_mo); 

readln0'ob5data,reg_sta_yr); 

readln(job5data,reg_end_mo); 

readln(job5data,reg_end_yr); 

readln(job5data,for_sta_nio); 

readIn(job5data,for_sta_yr); 

readln(job5data,for_end_mo); 

readln(job5data,for_end_yr); 

readln(job5data,nvic); 

readln(job5data,nvic_rat); 

readln(job5data,trend); 

readln(job5data,stats); 

readln(job5data,graph_resids); 

readln(job5data,sample); 

readln(job5data,graph_for); 

readln(job5data,plot_for) ; 

readln(job5data,dtype); 

readln(job5data,nat); 

readln(job5data,dis); 

readln(job5data,graph_run); 

readln(job5data,levels); 

readln0ob5data,deflator); 

readln(job5data,d_name); 

readLn(job5data,style); 
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rea<iln(job5data,raw); 
for  j:=i  to  nvic  do 
begin 

readln(job5data,res3|j]); 

readln(job5data,inv[j]); 

end; 

for  j:=l  to  18  do 
begin 

readln(job5data,trans_in[j]); 

end; 

for  j:=l  to  18  do 
begin 

readln(job5data,trans_out|j]); 

end; 

flag:=l; 

close(job5data); 

end 

else 

begin 

rewrite(job5data); 

tit:=’  ’; 

method:=’  ’; 

if(length(old_rile)<l)  then  in_rile:=’ 

in_file:=oId_rile; 

out_file:=’ 

model_file:=out_file; 

reg_sta_mo;=10; 

reg_sta_yr:=81; 

reg_end_mo:=9; 

reg_end_yr=90; 

for_sta_mo:=10; 

for_sta_yr:=81; 

for_end_mo:=9; 

for_end_yr:=90; 

nobs ; =5 ;  nent : = 1 ;  nper : =5 ;  n  vie :  =0;  tran  s_total : = 1 8 ; 

ttype : = ’  A  ’  ;n  vic_rat:  =0; 

raw:=’Y’; 

stats:=’N’; 

sample:=’B’; 

plot_trend:=’N’; 

graph_resids;=’  N  ’; 

plot_resids:=’N’; 

graph_for:=’N’; 

plot_for:=’N’; 


’  else 
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dtype:=’M’; 

nat:=’N’; 

dis:=’N’; 

trend:=’N’; 

graph_run:-’N’; 

d_name:=’None’; 

deflator;=’N’; 

styIe:=’L’; 

levcls;=’Y’; 

graph_path:=’ 

niodel:=l; 

rewrite(job5data); 

writeln(job5data,tit) ; 

writeln(job5data,ir  ’lod); 

writeln(job5data,in_file); 

writeln(job5data,model_file); 

writeln(job5data,out_file); 

writeIn(job5data4'ats_path); 

writelnGob5data,graph_path); 

wTiteln(job5data,nobs;4;0); 

writeln(job5data,nent:2:0); 

writeln(j  jb5data,nper:3 :0); 

writeIn(job5data,model;  1 ); 

writeln0ob5data,ttype); 

writeln(job5data;:eg_sta_nio); 

writeln(job5datajeg_sta_yr); 

writeIn(job5data,reg_end_mo); 

writeln(job5daia4-eg_end_yr); 

'vriteln(job5data,for_sta.  mo); 

writeln(job5data,for_sta_yr); 

writeln(job5data,for_end_mo); 

writeln(job5data,for_end_yr); 

writeln(job5data,nvic); 

writeln(joo5data,nvic_rat) ; 

writeln(job5data, trend); 

writeln(job5data, stats); 

writeln(job5data,graph_resids); 

writeln(job5data,sample); 

writeln(Job5data,graph_for); 

writeln(job5data,pIot_for); 

writeln(job5data,dtype); 

writeln(job5data,nat); 

writein(job5data,dis); 

writeln(job5data,graph_run); 

writeln(job5data,levcls); 


writeln(job5data,deflator); 

writeln(job5data,d_name); 

writeln(job5data,style); 

writeln(job5data^w); 

for  j:=l  to  18  do 

begin 

trans_in[j]:=’ 

writeln(job5data,trans_in[j]); 

end; 

for  j:=l  to  18  do 
begin 

trans_out|j]:=’ 

writeln(job5data,trans_out(j]); 

end; 

close(job5data); 

flag:=0; 

end; 

end; 

procedure  display_setup; 

begin 

jump(l); 

write(tit); 

jump(2); 

write(in_file); 

juinp(3); 

write(out_file); 

jump(4); 

write(graph_path); 

end; 

procedure  display_setupred; 

begin 

jump(l); 

\vrite(reg_sta_mo:2); 

jump(2); 

write(reg_sta _yr;2); 
jump(3); 

write(reg_end_mo:2); 

jump(4); 

write(reg_end_yr:2); 

jump(5); 

write(for_sta_mo;2); 

juinp(6); 

write(for_sta_yr:2); 


jump(7); 

write(for_end_mo;2); 

jump(8); 

write(for_end_yr:2); 

jump(9); 

write(graph_run); 

end; 

procedure  varinc; 
label  11, 12,13,14,15, exit; 
begin 

for  i:=l  to  14  do 
begin 

if((2*(i-l)+l)>nvic)  then  goto  exit; 

11:  if((2*(i-l)+l)>nvic„rat)  and  (copy(inv[(2*(i-l))+l],l,l)=’C’)  then 
begin 

for  j:=(2*(i-l)+l)  to  27  do 
begin 

res3[j]:=res31j+l]; 
inv(j]:=inv[j+l]; 
invO+l];=’  ’; 

rcs3[j+l]:=’  ’; 

end; 

nvic:=nvic-l; 
goto  11; 
end; 

if(flag=l)  then  goto  15; 
jump((4*(i-l))+l); 

if((2*(i-I)+l)<=nvic)  and  (copy(res3[(2*(i-l))+l],l,l)<>’  ’)  then  write(res3[(2*(i-l ))+!]); 
jump((4*(i-l))+2); 

if((2*(i-l)+l)<=nvic)  and  (copy(res3[(2*(i-I))+l],l,l)<>’  ’)  then  write(inv[(2*(i-l))+l]); 
15;  if((2*(i-l)+2)>nvic)  then  goto  exit; 

12:  if((2*(i-l)+2)>nvic_rat)  and  (copy(inv[(2*(i-l))+2],l,l)=’C’)  then 
begin 

for  j:=(2*(i-l)+2)  to  27  do 
begin 

res3(j]:=res3(j+II; 
inv[jl:=inv[j+l]; 
inv[j+l]:=’  ’; 

res3[j+l]:=’  ’; 

end; 

if((2*(i-l)+2)=28)  then 
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begin 

inv(28]:=’Clear’; 
res3[28]:=’ 
nvic:=nvic-l; 
goto  exit; 
end; 

nvic;=nvic-l; 
goto  12; 
end; 

13: 

if(flag=l)  then  goto  14; 
jump((4*(i-l))+3); 

if((2*(i-l)+2)<=nvic)  and  (copy(res3[(2*(i-2))+2],l,l)<>’  ’)  then  write(res3[(2*(i-l))+2]); 
jump((4*(i-l))+4); 

if((2*(i-l)+2)<=nvic)  and  (copy{res3[(2*(i-2))+2],l,l)<>’  ’)  then  write(inv[(2*(i-l))+2]); 
14: 

end; 

exit:  flag:=0; 
end; 

procedure  trans_work; 
label  try _again,exit_for_good,try, exit; 
begin 
k:=l; 

reset_screen(singleb,0,white,blue); 

get_window(’trans_in’,win_no); 

set_window(win_no,l,l); 

for  j:=l  to  18  do 

begin 

jump(k); 

if(length(trans_in[k])<2)  then  trans_in[k]:=’  ’; 
write(transjn[k]); 
k:=k+l; 
end; 
k:=l; 
try_again: 
jump(k); 

if(length(trans_in[k])<2)  then  trans_in[k]:=’  ’; 

fld_entry(13,ival,rval,trans_in[k],’xxx’,valid_eoflds,valid_terms,tenn_char); 
if(term_char  =  key_esc)  then  goto  exit; 

if(term_char  =  key_larr)  then 
begin 
k:=k-l; 

if(k<l)  then  k:=l. 


goto  try_again; 
end; 

if(tenn_char  =  key.rarr)  then 
begin 
k:=k+l; 

if(k>18)  then  k:=18; 
goto  try_again; 
end; 

if(terni_char  =  key_uarr)  then 
begin 
k:=k-l; 

if(k<l)  then  k;=l; 
goto  try_again; 
end; 

if(tenxi_char  =  key_darr)  then 
begin 
k:=k+l; 

if(k>18)  then  k:=18; 
goto  try_again; 
end; 

trans_total:=18; 

k;=k+l; 

if(k>18)  then  goto  exit; 
goto  try_again; 

exit:  k:=l; 

re  set_screen(singleb,0, white, blue); 
get_window(’trans_out’,win_no); 
set_window(win_no,  1,1); 
for  j:=l  to  18  do 
begin 
jump(k); 

if(length(trans_out[k])<2)  then  trans_out[kl;=’  ’; 
write(trans_out[k]); 
k;=k+l; 
end; 
k:=l; 
try: 

jumptk); 

if(length(trans_out[k])<2)  then  trans_out(k];=’  ’; 

nd_entry(13,ival,rval,trans_out[k],’xxx’,valid_eoflds,valid_terms,term_char); 
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if(tenn_char  =  key_esc)  then  goto  exit_for_good; 

if(term_char  =  keyjarr)  then 
begin 
k:=k-l; 

if(k<l)  then  k:=l; 
goto  try; 
end; 

if(term_char  =  key_rarr)  then 
begin 
k:=k+l; 

if(k>18)  then  k:=18; 
goto  try; 
end; 

if(tenn_char  =  key_uarr)  then 
begin 
k:=k-l; 

if(k<l)  then  k;=l; 
goto  try; 
end; 

if(tenn_char  =  key.darr)  then 
begin 
k:=k+l; 

if(k>18)  then  k:=18; 
goto  try; 
end; 

trans_total:=18; 

k:=k+l; 

if(k>18)  then  goto  exit_for_good; 
goto  try; 
exit_for _good: 

end;  {procedure  trans_work} 


begin 

(  Display  the  banner  screen.  ) 

textcolor(7); 

textbackground(l); 

dys[0]:=0; 

dys[l]:=0; 

dys[2]:=31; 
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dys(3];=59; 

dys[4]:=90; 

dys[5]:=120; 

dys[61;=151; 

dys[7]:=181; 

dys[81;=2I2; 

dys[9]:=243; 

dys[]0];=273; 

dys[l  1]:=304; 

dys[12]:=334; 

dys[131:=365.25; 

nvic:=0; 

trans_total;=0; 

model:=l; 

set_cursor  (0); 

assign(cntrldaia,’redcntrl.sys’); 

{$i-) 

reset(cntrldata); 

{$i+} 

exist:=  (ioresult  =  0); 
if  not  exist  then 
begin 

windowjnit; 

red_int; 

get_window(’ install ’,win_no); 

set_window(win_no,  1,1); 

assign(cntrldata,’redcntrl.sys’); 

rats_path:=’ 

in_file:=’ 

old_rile;=in_fde; 

jump(l); 

fld_entry(  1 1  .ival^^al  jats_path,’xxx’,valid_eoflds,valid_terms,terni_char) 
if(term_option  =  key_esc)  then  goto  18; 
rewrite(cntrldata); 
with  c_rec  do 
begin 

cntrl[l]:=0; 

cntrl[2]:=0; 

for  j:=3  to  10  do  cntrl[j]:=0; 
pgm_sel;=0; 

rats_path_sys  :=rats_path; 
write(cntrldata,c_rec); 
end; 

close(cntrldata); 

end 
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else 

begin 

assign(cntrldata,’redcntrl.sys  ’ ); 

reset(cntrldata); 

with  c_rec  do 

begin 

read(cntrldata,c_rec); 
rats_path:=rats_path_sys; 
pgm_se  1:  =cntrl  [4] ; 
set_flag;=0; 
if(pgm_sel  =  0)  then 
begin 

window_init; 

red_int; 

end 

else  new_window(80,25,l,l,singleb,60,white,blue,autoz,win_no); 
end; 

close(cntrldata); 

end; 

reset_screen(singleb,0,white,blue); 
get_window(  ’  intro’  ,win_no); 
set_window(win_no,  1,1); 
set_flag:=0; 
term_option:=’  ’; 
icurr_sel:=0; 

getdate(year,month,day,dayofweek); 
gettime(hour,minute,second,  sec  1 00); 
jump(l); 

if(hour>=0)  and  (hour<12)  then 
begin 

write(’Good  Morning.’); 
jump(2); 

write(’Today  is  ’,dw[dayofweek],’  ’,mm[month],’  ’.day,’,  ’.year); 
end; 

if(hour>=12)  and  (hour<18)  then 
begin 

write(’Good  Afternoon.’); 
jump(2); 

write(’Today  is  ’,dw[dayofweekl,’  ’,mm[month],’  ’.day,’,  ’.year); 
end; 

if(hour>=18)  and  (hour<=23)  then 
begin 

writef’Good  Evening.’); 
jump(2); 
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write(’Today  is  ’,dw[dayofweek],’  ’,mm[month],’  ’.day,’,  ’.year) 
end; 

delay(2000); 

icurr_sel:=0; 

set_flag:=0; 

ginny; 

reset_screcn(singleb,0, white, blue); 
get_window(’inain’,win_no); 
set_window(win_no,  1,1); 
for  j:=l  to  28  do 
begin 
res3[j]:=’ 

inv[j];=’Include  ’; 
end; 

recall_red; 
old_file:=in_file; 
tcnn_option:=’  ’; 
icurr_sel:=icurr_sel+ 1 ; 
assign(cntrldata,’redcntrl.sys  ’ ); 
reset(cntrldata); 
with  c_rec  do 
begin 

read(cntrldata,c_rec) ; 
end; 

ciose(cntrldata); 

select_menu_option(icurr_sel,6,’xxx’,pgm_sel,term_option); 
if(tenn_option  =  key_esc)  or  (pgTn_sel  =  6)  then  goto  18; 

if(flag<l)  and  (pgm_sel>l)  then 
begin 

gotoxy(2,23); 

clreol; 

gotoxy(10,23); 

write(’You  Must  Provide  The  Data  Requested  In  Setup  !!’); 
delay(2000); 
pgm_sel:=l; 
end; 

19:  case  pgm_sel  of 
1:  begin 

rcset_scTeen(singleb,0,white,blue); 
get_window(  ’setup  ’  ,win_no); 
sct_window(win_no,  1,1); 
recalLred; 


display_setup; 

gotoxy(2^3); 

clreol; 

gotoxy(25,23); 

write( ’Enter  the  Title  of  the  Analysis’); 
jump(l); 

if(length(tit)<l)  then  tit:=’ 

fld_entry(8,ival4^al,tit,’xxx’,valid_coflds,vaiid_terms,term_char); 

if(term_char  =  key_esc)  then  goto  debbie2; 

if(tenn_char  =  key_laiT)  then  goto  lynn; 

if(term_char  =  key_rarr)  then  goto  exwife; 

if(tenn_char  =  key_uarT)  then  goto  lynn; 

if(term_char  =  key.darr)  then  goto  exwife; 

exwife: 

gotoxy(2,23); 

clreol; 

gotoxyC  19,23); 

write(’What  is  the  Path  and  Name  of  Your  Data  File?’); 
if(length(in_rile)<l)  then  in_file:=’  ’; 

jump(2); 

fld_entry(ll,ival,rval,in_file,’xxx’,vaJid_eoflds,valid_terms,term_char); 

if(tenn_char  =  key_esc)  then  goto  debbie2; 

if(term_char  =  key_larr)  then  goto  lynn; 

if(tenn_char  =  key_rarr)  then  goto  michelle; 

if(term_char  =  key_uarr)  then  goto  lynn; 

if(term_char  =  key_daiT)  then  goto  michelle; 

michelle: 

gotoxy(2,23); 

clreol; 

gotoxy(  19,23); 

write(’What  is  the  Path  and  Name  of  Your  Output  File?’); 

if(length(out_rile)<l)  then  out_fiIe:=’ 

jump(3); 

fld_entry(  1 1  ,ival4A'al,out_rile,’xxx’,valid_eoflds,valid_terms,term_char); 

if(term_char  =  key_esc)  then  goto  michelle  1; 

if(term_char  =  keyjarr)  then  goto  exwife; 

if(term_char  =  key.rair)  then  goto  michelle  1; 

if(term_char  =  key_uarr)  then  goto  exwife; 

if(term_char  =  key_darr)  then  goto  michelle  1; 

michelle  1: 
gotoxy(2,23); 


57 


clreol; 

gotoxy(22,23); 

wriie(’What  is  the  Path  of  Your  Graph  Output  Files?’); 
if(length(graph_path)<l)  then  graph_path:=’ 
jump(4); 

fld_entry(l  l,ivala^aI,graph_path,’xxx’,vaIid_eoflds,valid_ternts,term_char); 

if(term_char  =  key_esc)  then  goto  debbie2; 

if(tenn_char  =  keyjarr)  then  goto  michelle; 

if(term_char  =  key_rarr)  then  goto  debbie2; 

if(term_char  =  key_uarr)  then  goto  michelle; 

if(term_char  =  key_darr)  then  goto  debbie2; 

debbie2: 

reset_screen(singleb,0,white,bIue); 
get_window(’moder,win_no); 
set_window(win_no,l ,  1 ); 

select_menu_option(icurr_sel,3/xxx’,model,term_option); 
if(tenn_oprion  =  key_esc)  then  goto  debbie3; 

debbie3: 

jump(5); 

gotoxy(2,23); 

clreol; 

gotoxy(  15,23); 

write(’Press  [S]  to  Save  or  [M]  to  Modify  or  [esc]  to  Exit’); 

cval:=’S’; 

gotoxy(68,r3); 

fld_entry(4,ival,rval,cval,’xxx’,valid_eoflds,valid_tenns,term_char); 

if(tenn_char  =  key_esc)  then  goto  ginny; 

if(cval=’M’)  or  (cval=’m’)  then  goto  19; 

if(cval<>’S’)  and  (cvalo’s’)  then  goto  debbie3; 

flag.-l; 

save_red; 

icurr_sel:=l; 
goto  ginny; 
end;  {pgm_sel  1} 

2;  begin 
recall_red; 

reset_screen(singleb,0,white,blue); 
get_  window(  ’  setupred  ’  ,win_no); 
set_window(  win_no,  1,1); 
ttype:=’m’; 
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time_factor:=12; 

display_setufred; 

lilian: 

denee: 

barbara: 

diane: 

dl: 

gotoxy(2,23); 

clreol; 

gotoxy(9,23); 

write(’Enter  the  Starting  Month  of  the  Regression’); 
jump(l); 

if(reg_sta_mo<l)  or  (reg_sta_mo>12)  then  reg_sta_mo;=lO; 
fld_entry(7,reg_sta_mo,rval,cval,’xxx’,valid_eoflds,valid_terms,term_char); 
if(term_char  =  key_esc)  then  goto  martha; 
if(reg_sta_mo<l)  or  (reg_sta_mo>I2)  then  goto  dl; 
if(term_char  =  key_larr)  then  goto  denee; 
if(term_char  =  key_rarr)  then  goto  d2; 
if(term_char  =  key_uarr)  then  goto  denee; 
if(term_char  =  key_darr)  then  goto  d2; 
d2: 

gotoxy(2,23); 

clreol; 

gotoxy(9,23); 

write(’Enter  the  Starting  Year  of  the  Regression’); 
jump(2); 

if(reg_sta_yr<60)  or  (reg_sta_yr>99)  then  reg_sta_yr:=80; 
fld_entry(7,reg_sta_yr,rval,cval,’xxx’,vaiid_eoflds,valid_terms,ierm_char); 
if(tenn_char  =  key  .esc)  then  goto  martha; 
if(reg_sta_yr<60)  or  (reg_sta_yr>99)  then  goto  d2; 
if(reg_sta_yr<80)  then  goto  d2; 
if(tenn._char  =  keyjarr)  then  goto  dl; 
if(term_char  =  key_raiT)  then  goto  d3; 
if(tenTi_char  =  key_uarr)  then  goto  dl; 
if(term_char  =  key_darr)  then  goto  d3; 
d3: 

gotoxy(2,23); 

clreol; 

gotoxy(9,23); 

write( ’Enter  the  Ending  Month  of  the  Regression’); 
jump(3); 

if(reg_end_mo<l)  or  (reg_end_mo>12)  then  reg_end_mo:=9; 
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fld_entry(7,reg_end_mo^al,cval,’xxx’,valid_eoflds,valid_terms,term_char); 

if(term_char  =  key_esc)  then  goto  martha; 

if(reg_end_mo<l)  or  (reg_end_mo>12)  then  goto  d3; 

if(term_char  =  k:ey_laiT)  then  goto  d2; 

if(term_char  =  key_rarr)  then  goto  d4; 

if(term_char  =  key_uarr)  then  goto  d2; 

if(term_char  =  key_darr)  then  goto  d4; 


gotoxy(2,23); 

clreol; 

gotoxy(9,23); 

write(’Enter  the  Ending  Year  of  the  Regression’); 
jump(4); 

if(reg_end_yr<60)  or  (rcg_end_yr>99)  then  reg_end_yr:=90; 

fld_entry(7,reg_end_yr,rval,cval,’xxx’,valid_eoflds,valid_terms,term_char); 

if(term_char  =  key_esc)  then  goto  martha; 

if(reg_end_yr<60)  or  (reg  end_yr>99)  then  goto  d4; 

if(reg  end  yr<reg  sta  yr)  then  goto  d4; 

if(term_char  =  keyjarr)  then  goto  d3; 

if(tenn_char  =  key_rarr)  then  goto  d5; 

if(temi_char  =  key_uarr)  then  goto  d3; 

if(tenn_char  =  key_darr)  then  goto  d5; 

gotoxy(2,23); 

clreol; 

gotoxy(9,23); 

write(’Enter  the  Starting  Month  of  the  Forecast’); 
jump(5); 

if(for_sta_mo<l)  or  (for_sta_mo>12)  then  for_sta_mo:=10; 

fId_entry(7,for_sta_mo,rval,cval,’xxx’,valid_eoflds,valid_terms.term_char); 

if(teim_char  =  key_esc)  then  goto  martha; 

if(for_sta_mo<l)  or  (for_sta_mo>12)  then  goto  d5; 

if(term_char  =  key_larr)  then  goto  d4; 

if(tenn_char  =  key_rarT)  then  goto  d6; 

if(term_char  =  key_uarr)  then  goto  d4; 

if(term_char  =  key_darr)  then  goto  d6; 

gotoxy(2,23); 

clreol; 

gotoxy(9,23); 

write(’Enter  the  Starting  Year  of  the  Forecast'); 
jump(6); 

if(for_sta_yr<60)  or  (for_sta_yr>99)  then  for_sta_yr;=81; 
fld_entry(7,for_sta_yr,rval,cval,’xxx’,valid_eoflds,valid_terms,term_char); 
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if(tenn_char  =  key_esc)  then  goto  martha; 
if(for_sta_yT<60)  or  (for_sta_yr>99)  then  goto  d6; 
if(for_sta_yr<reg_end_yr)  then  goto  d6; 
if(tenn_char  =  key_larr)  then  goto  d5; 
if(tenn_char  =  key_raiT)  then  goto  d7; 
if(term_char  =  key_uarr)  then  goto  d5; 
if(term_char  =  key_darr)  then  goto  d7; 

gotoxy(2,23); 

clreol; 

gotoxy(9^3); 

write(’Enter  the  Ending  Month  of  the  Forecast’); 
jump(7); 

if(for_end_mo<l)  or  (for_end_mo>12)  then  for_end_mo:=9; 

fld_entry(7,for_end_mo,rvai,cval,’xxx’,valid_eoflds,valid_tennf,term_char); 

if(tenn_char  =  key_esc)  then  goto  martha; 

if(for_end_mo<l)  or  (for_end_mo>12)  then  goto  d7; 

if(tenn_char  =  key_larr)  then  goto  d6; 

if(term_char  =  key_rarr)  then  goto  d8; 

if(term_char  =  key_uarr)  then  goto  d6; 

if(term_char  =  key_darr)  then  goto  d8; 


d8; 

gotoxy(2,23); 

clreol; 

gotoxy(9,23); 

write(’Enter  the  Ending  Year  of  the  Forecast’); 
jump(8); 

if(for_end_yr<60)  or  (for_end_yr>99)  then  for_end_yr:=90; 
fld_entry(7,for_end_yr^al,cval,’xxx’,valid_eoflds,valid_terms,temi_char); 
if(term_char  =  key_esc)  then  goto  martha; 
if(for_end_yr<60)  or  (for_end_yr>99)  then  goto  d8; 
if(for_end_yr<for_sta_yr)  or  (for_end_yr<reg_end_yr)  then  goto  d8; 
if(term_char  =  key_larr)  then  goto  d7; 
if(term_char  =  key_rarr)  then  goto  d9; 
if(term_char  =  key_uarr)  then  goto  d7; 
if(term_char  =  kev  darr)  then  goto  d9; 
d9; 
dlO: 
dll: 

gotoxy(2,23); 

clreol; 

gotoxy(  19,23); 

write(’Is  This  Run  Only  To  Produce  Graphs?  (Y/N)’); 
jump(9); 
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if(Iens’th(graph_njn)<l)  then  graph,  njn:=’N’; 

fid  "ntTy(4  :viljval,graph_ruii,’xxx',valid_eoflds,valid_teiTns,term_char); 
if(terTr._char  =  key_esc)  then  goto  martha; 

if(gra[)h_n  no’N’)  and  (gn3ph_run<>’n’)  and  (graph_run<>’Y’)  and  (graph_run<>’y’)  then 
goto  d  n  • 

ifftr:  ''  ch^  r  =  key_larr)  then  goto  d8; 
iffn  '  char  =  key_raiT)  then  goto  dl2; 
if(tenn,char  =  key_uarr)  then  goto  d8; 
if(tenr,  char  =  key_darr)  then  goto  dl2; 
dl2; 


martha; 

jump(lO); 

gotoxy(2,23); 

clreol; 

gotoxy(  15,23); 

write! ’Press  [S]  to  have  or  [M]  to  Modify  or  [escj  *o  Exit’); 

cval:=’S'; 

gotoxyi  68,23); 

fid  ,entr>'('+,ival,rval,cval,’xxx’.valid  eoflds,valid_terms.terTn_chart; 
if(term_.char  =  key_esc)  then  goto  ginny; 
if(cval=’M’)  or  (cva!=’m’)  then  goto  I’lian; 
if(cvalo’S')  and  (cvalo’s’)  then  goto  martha; 

save_red; 

goto  ginny: 

end;  {pgm_sel  2) 


3:  begin  {Plots/Graphs) 

reset_screen(singleb,0,  white, blue); 
get_window( ’options ’,win_no); 

3f*t_window(win_no,  1,1); 
goto  133; 

166: 

gotoxy(2,23); 

clreol; 

gotoxy(29,23); 

wriief’Enter  Yes  or  No  (Y/N)’); 
jump(l); 

nd_entry(4,ivaljwal,trend,’xxx’.valid_eoflds,valid_terms,term_char); 
if(term_char  =  key_csc)  then  goto  133; 

ifftrendo’Y’)  and  (trendo’y’)  and  (trendo’N’)  and  (trend<'>’n’)  then  goto  166; 
if!teim_char  =  keyjarr)  then  goto  166; 
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if(term_char  =  key_rarr)  then  goto  e2; 
if(term_char  -  key_uarr)  then  goto  166; 
if(temi_char  =  key_darr)  then  goto  e2; 


e2: 


gotoxy(2,23); 

clreol; 

gotoxy(29,23); 

\vrite(’Enter  Yes  or  No  (Y/N)’); 
jump(2); 

fld_entry(4,ivaljval,graph_resids,’xxx\valid_eoflds,valid_ternis,term_char); 

graph_resids:=’N’; 

if(temi_char  =  key_esc)  then  goto  133; 

if(graph_resids<>’Y’)  and  (graph_resids<>’y’)  and  (graph_resids<>’N’)  and 
(graph_tesids<>’n’)  then  goio  e2; 

if(tenn_char  =  key_larr)  then  goto  e2; 
if(tenn_char  =  key_rarr)  then  goto  e4; 
if(term_char  =  key_uarr)  then  goto  e2; 
if(tenn_char  =  key_darr)  then  goto  e4; 


e4: 


gotoxy(2,23); 

clreol; 

gotoxy(29,23); 

write(’Enter  Yes  or  No  (Y/N)’); 
jump(3); 

fld_entry(4,ival,rval,graph_for,’xxx’,valid_eoflds,valid_tenns,tenn_char); 
if(term_char  =  key^esc)  then  goto  133; 

if{graph_for<>’Y’)  and  (graph_for<>’y’)  and  (graph_for<>’N’)  and  (graph_for<>’n’)  then 
goto  e4; 

if(term_char  =  keyjarr)  then  goto  e4; 
if(term_char  =  key_rarr)  then  goto  e6; 
if(tenm_char  =  key_uarr)  then  goto  e4; 
if(term_char  =  key  .darr)  then  goto  e6; 


gotoxy(2,23); 

clreol; 

gotoxy(9,23); 

write( ’Enter  whether  To  Present  Monthly,  Quarterly  or  Annual’); 
jump(4); 

ifCdtypeo’M’)  and  (dtypeo’m’)  and  (dtypeo’Q’)  and  (dtypeo’q’)  and 
(dtype<''’A’)  and  (dtypeo’a’)  then  dtype;=’M’; 
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fld_entry(4,ivaI,rval,dtype,’xxx’,valici_eoflds,valid_terms,term_char), 

dtype:=’M’; 

if(term_char  =  key^esc)  then  goto  133; 

if(dtypeo’M’)  and  (dtypeo’m’)  and  (dtypeo’Q’)  and  (dtypeo’q’)  and 

(dtypeo’A’)  and  (dtypeo’a’)  then  goto  e6; 

if((dtype=’M’)  or  (dtype=’m’))  and  ((ttype=’Q’)  or  (ttype=’q’))  then 

begin 

warn; 

gotoxy(2,23); 

clreol; 

textcolor(30); 

gotoxy(9,23); 

writeCYou  Cannot  Obtain  Monthly  Graphs  Using  Quarterly  Data  ); 
textcolor(7); 
delay  (1000); 
goto  e6; 
end; 

if((dtype=’M’)  or  (dtype=’m’))  and  ((ttype=’A’)  or  (ttype=’a’))  then 
begin 
warn; 

gotoxy(2,23); 

clreol; 

textcolor(30); 

gotoxy(9,23); 

write(’You  Cannot  Obtain  Monthly  Graphs  Using  Annual  Data’); 
textcolor(7); 
delay(lOOO); 
goto  e6; 
end; 

if{(dtype=’Q’)  or  (dtype=’q’))  and  ((ttype=’A’)  or  (ttype=’a’))  then 

begin 

warn; 

gotoxy(2,23); 

clreol; 

textcolor(30); 

gotoxy(9,23); 

write(’You  Cannot  Obtain  Quanerly  Graphs  Using  Annual  Data  ); 
textcolor(7); 
delay(lOOO); 
goto  e6; 
end: 

if(term_char  =  key_larr)  then  goto  e4; 
if(terni_char  =  key_rarr)  then  goto  e7; 
if(term_char  =  key_uarr)  then  goto  e4; 
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if(term_char  =  key_(larr)  then  goto  e7; 


e7: 

nat:=’Y’; 

e8; 

e9: 

elO: 

gotoxy(2,23); 

clreol; 

gotoxy(29,23); 

write(’Enter  Yes  or  No  (Y/N)’); 
jump(5); 

if(lengTh(stats)<l)  then  stats:=’N’; 

fld_entry(4,ival4^al,stats,’xxx’,valid_eoflds,valid_tenns,term_char); 
if(tenri_char  =  key_esc)  then  goto  133; 

if(stats<>’Y’)  and  (statso’y’)  and  (statso’N’)  and  (statso’n’)  then  goto  elO; 
if(temi_char  =  key_larr)  then  goto  e6; 
if(term_char  =  key_rarr)  then  goto  ell; 
if(term_char  =  key_uarr)  then  goto  e6; 
if(term_char  =  key_darr)  then  goto  ell; 
ell: 

gotoxy(2;23); 

clreol; 

gotoxy(29^3); 

write(’Enter  Yes  or  No  (Y/N)’); 
jump(6); 

if(length(style)<l)  then  stats:=’L’; 

fld_entry(4,ivai^al,style,’xxx’,valid_eoflds,valid_ternis,tenn_chai>; 
if(term_char  =  key_esc)  then  goto  133; 

if(styleo’L’)  and  (styleoT)  and  (styleo’B’)  and  (styleo’b’) 
and  (styleo’P’)  and  (styleo’p’)  then  goto  ell; 
if(tenn_char  =  key_la]T)  then  goto  elO; 
if(tenn_char  =  key_rarr)  then  goto  el 2; 
if(term_char  =  key_uarr)  then  goto  elO; 
if(term_char  =  key_darr)  then  goto  el 2; 


133:  jump(7); 
options; 
gotoxy(2,23); 


clreol; 

gotoxy(  15,23); 

wTite(’Press  fS]  to  Save  or  [M]  to  Modify  or  [esc]  to  Exit’); 

cval;=’S’; 

gotoxy(68,23); 

nd_entry(4,ival,rval,cval,’xxx’,valid_eoflds,valid_terms,term_char) 
if(term_char  =  key_esc)  then  goto  ginny; 
if(cval=’m’)  or  (cval=’M’)  then  goto  166; 
if(cval<>’S’)  and  (cvalo’s’)  then  goto  133; 
save_red; 
goto  ginny; 
end;  {pgm_sel  4} 

4;  begin  [Execute  Rats] 
estimate; 
goto  ginny; 
end;  (pgm_sel  5) 

5:  begin  (DATA  Editor) 
swapvectors; 

exec(’\:ommand.com’,’/C  ’-erats_path+’Nratsdata’); 

if(DosError<>0)  then 

begin 

Writeln(’Dos  Error  #  ’,doserror); 
delay(5000); 
end; 

swapvectors; 
icurr_sel;=3; 
goto  ginny; 
end;  {pgm_sel  6} 

end;  (end  of  pgm_sel} 


18: 

assign(cntrldata,’redcntrl.sys’); 

reset(cntrldata); 

with  c_rec  do 

begin 

cntrl[ll:=0; 

cntrl[2];=0; 

rats_path_sys;=rats_path; 
for  j:=4  to  10  do  cntrl[j]:=0; 
write(cntrldata,c_rec); 
end; 

close(cntrldata); 
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reset_screen(noneb,0,white,blue); 

set_cursor(2); 

halt; 

end.  {end  of  redmain} 


($R-}  (Range  checking  off} 

($B+}  (Boolean  complete  evaluation  on) 

{$S+}  (Stack  checking  on} 

{$!+}  (I/O  checking  on} 

{$N-}  (No  numeric  coprocessor} 

{$M  6000,0,40000} 

{  redem.PAS  -  RATS386  Interface  Program  } 

{  Purpose:  redmain. pas  is  the  driver  program  } 

{  Calling  Program/Procedure:  redmain.exe  } 

{  Written:  08/08/90  :  For  Jeff  Barnes  } 

{  Last  Revised:  08/1 1/90  :  by  Jack  R.  Dempsey  } 

program  redem; 

{$r-}  {r+ enables  rangechecking} 

{$v-}  (v-  allows  passing  string  parameters  of  unequal  lengths} 


Uses 

crt, 

Dos; 

{$i  gutildcl.pas} 
{$i  erlfefwd.pas} 
{$i  erlfecod.pas } 

var 


jobSdata 

:  text; 

uataset 

:  text; 

report 

:  text; 

buf 

:  string[801: 

job5_data 

;  string)  12} 

in_file 

:  string! 30]; 
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modeLfile 

:  string[30]; 

out_file 

:  string[30]; 

rats_path 

:  string[30]; 

graph_path 

:  string[30]; 

reg_sta_mo 

;  integer. 

reg_sta_yr 

;  integer. 

for_sta_mo 

:  integer. 

for_sta_yr 

:  integer. 

reg_end_mo 

:  integer; 

teg_end_yr 

:  integer. 

for_end_mo 

:  integer; 

for_end_yr 

:  integer; 

time_factor 

:  integer. 

stats 

:  string[l]; 

graph_resids 

:  string[l]; 

sample 

;  string!  1]; 

graph_for 

;  string!  1]; 

plot_for 

;  string!!]; 

dtype 

:  string!!]; 

nat 

:  string!!]; 

dis 

;  string!!]; 

deflator 

:  string!!]; 

d_name 

:  string!8]; 

graph_run 

:  string!!]; 

levels 

;  string!!]; 

style 

:  string!!]; 

raw 

:  string!!]; 

step 

:  integer; 

noest 

:  string!!]; 

noech 

:  string!!]; 

nodet 

:  string!!]; 

nocov 

;  string!!]; 

model 

;  integer, 

nores 

:  string!!]; 

nocrs 

:  string!!]; 

res3 

:  array!!.. 28]  of  string!8]; 

inv 

:  array!!. .28]  of  string!9]; 

temp_str 

:  string!3]; 

ttype 

:  string!!]; 

nent 

:  integer. 

tyrs 

:  integer; 

method 

:  string!35]; 

tit 

:  string!35]; 

nobs 

:  real; 

maxit 

:  integer. 
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depend  :  string[8]; 

dependx  :  string[8]; 

nper  :  real; 

carg  :  real; 

page  :  integer, 

Iine_no  :  integer, 

term_option  :  char, 

choice  :  integer, 

nvic  :  integer, 

icurr_sel  :  integer, 

drive  :  char, 

drive_sel  :  integer, 

end_read  :  integer, 

fy  :  real; 

col/ow  ;  integer, 

trend  :  string[l]; 

ij,k,m  :  integer, 

code,nsplits  :  integer; 

finished_entering;  boolean; 

finished_scn  :  boolean; 

main_pgin  :  file; 

pgm.sel  :  integer, 

set_flag  :  integer, 

trans_total  :  integer, 

inodel_total  :  integer, 

oper  :  array [1.. 28]  of  integer, 

transjn  :  array[1..18]  of  string[70]; 

PP  :  PathStr, 

DD  :  DirStr; 

NN  :  NameStr; 

EE  :  ExtStr, 

flag  :  integer; 

nvic_rat  :  integer; 

exist  :  boolean; 


procedure  open_data; 
begin 

assign(dataset,’alloc.sys’); 

rewrite(dataset); 

writeln (dataset  ’’•‘*************************************************************** 
writeln(dataset,’*  Interface  by  Jack  R.  Dempsey  Human  Resources  Research  Organization  *’); 


writeln(dataset,’*  Questions  call  (703)  549-3611  *’); 

*:«<*«***:(c*««>y 

writeln(dataset, ’output  noecho’); 

PP;=in_file; 

fsplit(PP,DD,NN,EE); 

writeln(dataset,’  ’); 

writeln(dataset,’open  data  dates.sys’); 

writeln(dataset,’declare  vector  dates(lO)’); 

writeln(dataset,  ’input(UNIT=DATA)  dates’); 

writeln(dataset,’  ’); 

writeln(dataset,’cal  FIX(dates(l))  FIX(dates(2))  4  ;*QUARTERLY  CALENDAR’); 
writeln(dataset,’  ’); 

writeln(dataset,’ieval  dlastfc  =  cal(fix(dates(9)),fix(dates(10)))’); 
writeln(dataset,’  WRITE  DLASTEC’); 
writeln(dataset,’all  0  dlastfc+4’); 
writeln(dataset,’  ’); 

writeln(dataset,’IEVAL  DLAST  =  dlastfc-6’); 

writeln(dataset,’ieval  nfor  =  dlastfc  -  diast’); 

writeln(dataset, ’CLEAR  UNEMP  CPI  WE1624  WE1619  WE2024’); 

writeln(daiaset,’open  data  ’,in_file,’;  *  MONTHLY  SOURCE  DATABASE’); 

\vriteln(dataset,’data(fonnat=rats)  78,2  DLASTFC  unemp’); 

writeln(dataset,’open  data  ’,DD,’ewsannex.rat ;  *  QUARTERLY  SOURCE  DATABASE’); 
writeln(dataset,’data(format=rats)  78,3  DLASTFC  cpi’); 
writeln(dataset,’data(format=rats)  79,1  DLAST  wel624  wel619  we2024’); 
writeln(dataset,”' 
writeln(dataset,’ 

writeln(dataset,’set  trend  77,3  dlastfc  =  t’); 
wriiein(dataset,’set  trend2  77,3  dlastfc  =  t  *  t’); 
writeln(dataset,’  ’); 
writeln(dataset,’  ’); 
writeln(dataset, ’clear  seas’); 

writeln(dataset,’seasonal  seas  77,3  dlastfc+2  4  78,1’); 
writeln(dataset,’  ’); 

writelnfdaiaset,’*  projecting  civ.  earnings’); 

wTiteln(dataset,’CLEAR  EGROW  CGROW  LFCAST’); 

writeln(dataset,’set  egrow  80,1  diast  =  (we2024(t)/we2024(t-4)-l)*100.’); 

writeln(dataset,’set  egrow  79,3  dlastfc  =  (cpi(t)/cpi{t-4)-l)*100.’); 

writeln(dataset,’equation(more)  1  egrow’); 

writeln(dataset,'#  constant  unemp  -egrow  I  1’); 

writeln(dataset, ’initial  1’); 

writeln(dataset, ’clear  resids’); 

writeln(dataset, ’iterate  1  80,1  DLAST  resids’); 

writeln(dataset,’set  eamhat  79,1  DLAST  =  egTOw(t)  -  resids(t)’); 

writeln(dataset.’set  actual  79,1  DLAST  =  egrow(t)’); 
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writeln(dataset,’set  error  79,1  BLAST  =  eamhat(t)  -  actual(t)’); 

writeln(ciataset,’print(dates)  79,1  BLAST  we2024  actual  eamhat  error’); 

writeln(dataset,’forecast(print)  1  6  dlasi+l’); 

writeln(dataset,’#  1  Ifcast  dlast+l’); 

writeln((lataset,’set  egrow  dlast+l  BLASTFC  =  Ifcast(t)’); 

writeln(dataset,’set  we2024  dlast+l  dlastfc  =  (1.0  +  egrow(t)/100.)  *  we2024(t-4)’); 
writeln(dataset,’set  Ifcast  dlast  dlast  =  0.0’); 
writeln(dataset,’print(dates)  dlast  dlastfc  Ifcast  egrow  we2024’); 
writeln(dataset,’  ’); 

writeln(dataset,’*  »»>creating  four  year  stream  &  calculating  present  value’); 
writeln(dataset, ’clear  pvcivwe  grate’); 

writeln(dataset,’set  grate  79,1  dlast  =  (we2024(t)/wel619(t))**0.25’); 
writeln(dataset,’set  grate  dlast+l  dlastfc  =  grate(dlast)’); 
writeln(dataset,’eval  discf  =  1.3’); 

writeln(dataset,’set  wel619  dlast+l  dlastfc  =  we2024(t)/grate(t)**4’); 

writeln(dataset,’set  pvcivwe  79,1  dlastfc  =  wel619(t)*(l+(grate(t)/discf)+(grate(t)/discf)**2  $’); 

writeln(dataset,’  +(grate(t)/discf)**3)’); 

writeln(dataset,’print(dates)  79,1  dlastfc  wel6l9  we2024  grate  pvcivwe’); 
writeln(dataset,’  ’); 

writeln(dataset,’*  proceed  to  deseasonalization’); 
writeln(dataset, ’clear  resids  www  fitted’); 
writeln(dataset,’LINREG  pvcivwe  79,1  BLAST  resids  www’); 
writein(dataset,’#  constant  trend  -seas  0  -2’); 
writeln(dataset,’prj  fitted  79,1  dlastfc’); 

writeln(dataset,’set  resids  dlast+l  dlastfc  =  Dvcivwe(t)  -  fitted(t)’); 
writeln(dataset,’print(dates)  79,1  dlastfc  pvcivwe  fitted  resids’); 
writeln(dataset,’  ’); 

writeln(dataset, ’statistics  pvcivwe  79,1  BLASTFC’); 
writeln(dataset,’set  ci  79,1  BLASTFC  =  resids(t)  +  mean’); 
writeln(dataset,’  ’); 

writeln(dataset,’set  ztime  79,1  BLASTFC  =  www(2)  *  trcnd(t)’); 
writeln(dataset,’ statistics  ztime  79,1  BLASTFC’); 
writeln(dataset,’set  cit  79,1  BLASTFC  =  ci(t)  +  ztime(t)  -  mean’); 
writeln(dataset,’  ’); 

writeln(dataset, ’statistics  pvcivwe  79,1  BLASTFC’); 
writeln(dataset, ’statistics  cit  79,1  BLASTFC’); 
writeln(dataset,’print(dates)  79,1  BLASTFC  pvcivwe  cit  ci’); 
writeln(dataset,’  ’); 

writeln(dataset,’BEBlT  ’,BB,’EWSANNEX.RAT’); 
writeln{dataset,’dreplace  WECIT  CIT  79,1  BLASTFC  1’); 

writeln(dataset,’  QUARTERLY.  SEASONALLY-ABJUSTEB  PAY  VARIABLE  TO  BE 
INTERPOLATEB  MONTHLY.’); 
writein(dataset,’PRTOATA  WECIT’); 
writeln(dataset,’SAVE’); 
writeln(dataset,’  ’); 
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writeln(dataset,’*  save  the  "cit"  series  and  convert  it  into  a  monthly  series’); 
writeIn((iataset,’END  1’); 

writeln(dataset,’*  CONVERSION  TO  A  MONTHLY  FREQUENCY’); 

writeln(dataset,’  ’); 

writeln(dataset,’open  data  dates.sys’); 

writeln(dataset, ’declare  vector  dates(lO)’); 

writeln(dataset,  ’input(UNIT =D ATA)  dates  ’ ); 

writeln(dataset,’  ’); 

writeln(dataset,’cal  FIX(dates(l))  FIX(dates(2))  FIX(dates(3))’); 
writeln(dataset,’IEVAL  DLSTEFC  =  FIX(DATES(5))  +  2’); 
writeln(dataset,’ieval  dlastfc  =  cal(fix(dates(4)),dLstefc)’); 
writeln(dataset,’ali  0  dlastfc+10  ;  *  last  mondi  in  a  quarter  should  be  used  here’); 
writeln(dataset, ’CLEAR  WECIT’); 
writeln(dataset,’open  data  ’L)D,’ewsannex.rat’); 
writeln(dataset,’data(fonnat=rats)  79,1  dlastfc  wecit’); 
writeln(dataset,’ieval  dfirst  =  (79,1) ;  ieval  dlastm2  =  dlastfc  -  2’); 
writeln(dataset, ’clear  mx’); 

writeln(dataset,’set(scratch)  mx  dfirst  dfirst  =  wecit(t)’); 
writeln(dataset, ’ieval  dfirst  =  dfirst  +  1’); 
writeln(dataset,’do  i  =  dfirst,dlastm2,3’); 
writeln(dataset,’  set( scratch)  mx  i  i  =  wecit(t)’); 
writeln(dataset,’  ieval  d2nd  =  i  +  1  ;  ieval  d3rd  =  i  +  2’); 

writeln(dataset,’  set(scratch)  mx  d2nd  d2nd  =  wecit(t-l)+(wecit(t+2)  -  wecii(t-l))/3’); 
writeln(dataset,’  set(scratch)  mx  d3rd  d3rd  =  mx(t-l)+(wecit(t+l)  -  wecit(t-2))/3’); 
writeln(dataset,’end  do  i’); 

writeln(dataset,’set  mx  dlastm2+l  dlastfc  =  wecit(t)’); 
writeln(dataset,’dedit  ’,in_file); 
writeln(dataset,’prtdata  pvwkl82r); 
writeln(dataset,’dreplace  pvwkl821  mx  79,1  dlastfc’); 
writeln(dataset,’pndata  pvwkl82r); 
writeln(daiaset,  ’  save  ’ ); 
writeln(dataset,  ’end  ’ ); 
close(dataset); 
end;  {open_data) 

procedure  mdates; 
begin 

assignfdataset, ’dates,  sys  ’ ); 
rewrite(dataset); 

writeln(dataset,’  69  1  12  ’,for_end_yr,’  ’,for_end_mo,’  86  10  0  ’,for_end_yr,’  4’); 

writeln(dataset,’*  aaaaaaaaa  a*). 

writeln(dataset,’*  BBFDDFF  D  D’); 

writeln(dataset,’*  AARLLII  L  L’); 

writeln(dataset,’*  SSEAARR  A  A’); 

writelnfdataset,’*  EEQSSSS  SS’); 
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writeln(dataset,’* 
writeln(dataset,’*  Y  M 
writeln(ciataset,’*  R  O 
writeln(ciataset,’* 
writeln((iataset,’* 
writeln(dataset,’* 
writeln(dataset,’* 
close(dataset); 
end;  (mdates) 


T  T  T  T  T  T); 

F  F  F  F’); 

C  C  F  F  C  C); 

Y  Y’); 

Y  M  Q  Q’); 

R  O  Y  M  Y  T’); 

R  O  R  R’); 


procedure  recall_red; 
begin 

assign(jobSdata,  ’  red.  sy  s  ’ ; 

{$i-} 

reset(job5data); 

{$i+} 

exist:=  (ioresult  =  0); 
if  exist  then 
begin 

reset(job5data); 

readln(jobSdata,tit); 

readln(job5data,niethod); 

readln(job5data,in_file); 

readln(job5data,model_file); 

readln(job5data,out_file); 

readln(job5data,rats_path); 

readln(job5data,graph_path); 

readln(job5data,nobs); 

readln(job5data,nent); 

readln(job5data,nper); 

readln(job5data,rnodel); 

readln(job5data,ttype); 

readln(job5data4«g_sta_mo); 

readln(job5data,rcg_sta_yr); 

readln(job5data,reg_end_mo); 

readln(job5data,reg_end_yr); 

readln(job5data,for_sta_mo); 

readln(job5data,for_sta_yr); 

readln(job5data,for_end_mo); 

readln(job5data,for_end_yr); 

readln(job5data,nvic); 

readln(job5data,nvic_rat); 

readln(job5data,  trend); 

readln(job5data,stats); 

readln(job5data.graph_resids); 
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readln(job5data,sample); 

readln(job5data,graph_for); 

readln(job5daiii,plot_for); 

readln(job5data,dtype); 

readln(job5data,nat); 

readln(job5data,dis); 

readln(job5data,  graph_ru  n ) ; 

readln(job5data,levels); 

readln(job5data,deflator ) . 

readln(job5data,d_name) ; 

readln(job5data,style); 

readln(job5data,raw); 

for  j:=l  to  nvic  do 

begin 

readln(job5data,res3[j]); 

readln(job5data,inv[j]); 

end; 

for  j:=l  to  18  do 
begin 

readln(job5data,transJn[j]); 

end; 

flag:=l; 

close(job5data); 

end; 

end; 

begin 

recali_red; 

mdates; 

open_data; 

end.  {end  of  redem) 


{$R-)  ( Range  checking  off ) 

{$B+}  {Boolean  complete  evaluation  on} 
{$S+)  {Stack  checking  on) 

{$!+}  { I/O  checking  on } 

{$N-}  {No  numeric  coprocessor) 

{$M  6000,0.40000) 

{  redOl.PAS  -  RATS386  Interface  Program  ) 

{  Purpose:  redmain.pas  is  the  driver  program  ) 
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t  Calling  Prograiti/Procedure:  redmain.exe  } 

{  Written:  08/08/90  :  for  Jeff  Barnes  } 

{  Last  Revised:  08/10/90  :  by  Jack  R.  Dempsey  ) 

program  redOl; 

{$r-}  {r+  enables  rangechecking} 

{$v-}  {v-  allows  passing  string  parameters  of  unequal  lengths) 


Uses 

crt, 

Dos; 

{$i  gutildcl.pas ) 
{$i  erlfefwd.pas } 
{$i  erlfecod.pas } 


var 

jobSdata 

dataset 

repon 

buf 

job5_data 

in  _file 

model_file 

out_file 

rats_path 

graph_path 

rcg_sta_mo 

reg_sta_yr 

for_sta_mo 

foT_sta_yT 

reg_end_mo 

reg_end_yr 

for_end_mo 

for_end_yr 

time_factor 

stats 

graph_resids 

sample 

graph_for 

plot_for 

dtype 


:  text; 

:  text; 

:  text; 

:  string[80]; 

:  string[12]; 

:  string[30]: 

:  string[30]; 

:  string[30]; 

;  string[301; 

;  string[301; 
:  integer; 

:  integer; 

:  integer, 

:  integer, 

:  integer; 

:  integer, 

:  integer; 

:  integer; 

:  integer, 

:  string!  1]; 

:  string!  1]; 

:  string!  1 1; 

:  string!!]; 

;  string!  Ij; 

:  string!  1); 
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nat 

dis 

deflator 

d_name 

graph_run 

levels 

style 

raw 

step 

noest 

nr<*ch 

MiyuCt 

nocov 

model 

nores 

nocTS 

rcs3 

inv 

temp_str 

ttype 

nent 

tyrs 

method 

tit 

nobs 

maxit 

depend 

dependx 

nper 

carg 

page 

line_no 

term_option 

choice 


:  string[l]; 

:  string[l], 

:  string[l]; 

:  string[8]; 

:  string[l]; 

:  string[l]; 

:  string[l]; 

:  string[n; 

:  integer, 

:  string[l]; 

;  string[l]; 

:  string[l]; 

:  string[l]; 

:  integer, 

:  string[l]; 

:  string[ll; 

;  array[1..28]  of  string[8]; 
:  aiTay[1..28]  of  string[9]; 
:  string[31; 

:  Jtring[l]; 

:  integer, 

:  integer, 

;  string(35]; 

:  scringl3!)]; 

:  real; 

:  integer, 

;  string[8]; 

:  string[8]; 

:  real; 

:  real; 

:  integ».r; 

:  integer; 

:  char; 

;  integer. 


nvic  ;  integer, 

icuiT_sel  :  integer, 

drive  :  char, 

drive_sel  :  integer, 

end_read  :  integer, 
fy  :  real; 

colj-ow  :  integer, 

trend  :  string[l]; 

ij,k,m  :  integer, 

code,nsplits  :  integer, 
finished_entering:  boolean; 
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finished_scn 

:  boolean; 

main_pgm 

:  file; 

pgm_sel 

;  integer. 

set_flag 

:  integer. 

trans_total 

:  integer; 

model_total 

:  integer. 

oper 

:  array [1.. 28] 

transjn 

:  array[1..18] 

flag 

;  integer. 

nvic_rat 

.  integer. 

exist 

:  boolean; 

procedure  stats_out; 
var 

kk,jj  :  integer, 
adj  :  integer, 
stile  1  :  string[10]; 

stile2  :  string[10]; 
mm  :  integer, 

begin 

mm;=nent; 
stile  1;=’LINE’; 
stile2:=’LINE’; 

if(style=’b’)  or  (style=’B’)  then  stile  1:=’BARGRAPH’; 
if(style=’b’)  or  (style=’B’)  then  stile2:=’OVERLAP’; 
if(style=’p’)  or  fstyle=’P’)  then  stilel;=’POLYGONAL’; 
if(raw=’y’)  or  (raw=’Y’)  then  kk:=nvic_rat  else  kk:=nvic; 

if((trend=’Y’)  or  (trend=’y’))  and  ((dis=’Y’)  or  (dis=’y’)) 
and  ((dtype=’M’)  or  (dtype=’m’))  and  (time_factor>4)  then 
begin 

for  j:=l  to  kk  do 
begin 

if(copy(inv|j],l,l)<>’C’)  then 
begin 

right_trim(graph_path); 
right_trim(nes3[j]); 
for  jj;=l  to  mm  do 
begin 

if(length(graph_path)>  1 )  then  writcln(datasci,'OPEN  PLOT  ’.graph  paih.res31j],'.GSP'): 
writein(dataset,’  SET  VARl  I  MO  =  ’,rcs3(jl,’((t- l)*BLK+I+(’,jj, '-!))'); 
wnteln(dataset.’  DISPLA Y(STORE=HEAnER )  ’’DISTRiCl'  TRENDS  (Monthly)’"); 
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writeln(dataset,’GRAPH(HEADER=HEADER,HLABEL=”Months”,  $’); 
writeln(dataset,’STYLE=’,stUel,\VLABEL=”’,res30], 
writeln(dataset,’  #  VART); 
writeln(dataset,’ CLEAR  VARl’); 

if(length(graph_path)>l)  then  writeln(dataset, ’CLOSE  PLOT’); 
end; 
end; 
end; 
end; 


if((trend=’Y’)  or  (trend=’y’))  and  ((dis=’Y’)  or  (dis=’y’)) 
and  ((dtype=’Q’)  or  (dtype=’q’))  and  (time_factor>=4)  then 
begin 
adj:=I; 

if(ttype=’M’)  or  (ttype=’m’)  then  adj:=3; 

for  j;=l  to  kk  do 

begin 

if(copy(inv[j],l,l)<>’C’)  then 
begin 

for  jj:=l  to  mm  do 
begin 

if(length(graph_path)>l)  then  writeln(dataset,’OPEN  PLOT  ’,graph..pathA’,res3[j],’.GSP’); 
writeln(dataset,’  SET  VARI  /=  ’,res3[j],’((t-l)*BLK+l+(’,jj, '-!))’); 
writeln(dataset,'DO  J=LMO/’,adj); 

writeln(dataset,’ ACCUMULATE  VARl  ((J-l)*’,adj,’)+l  (J*’,adj,’)  SUMl  ((J-l)*’,adj, ’)+!’): 
writeIn(dataset,’END  DO  J’); 

writeln(dataset,’  SET  VAR2  1  MO/’,adj,’  =  SUMl(t*’,adj,’)’); 
writelnidataset,’  CLEAR  SUMl’); 

writeln(dataset,’  DISPLAY(STORE=HEADER)  ’’DISTRICT  \jj,'  TRENDS  (Quanerly)”’): 
writelnidataset, ’GRAPH(HEADER=HEADER,IlLABEL=”Quarters”,  $’); 
writeln{dataset,’STYLE=’, stile  L’,VLABEL=”’,res3[jl, 
writelnidataset,’  #  VAR2’); 
end; 
end; 
end; 

writelnidataset, ’CLEAR  VARl  VAR2’); 
end; 


ifIItrend=’Y’)  or  Itrend=’y’))  and  IIdis=’Y’)  or  Idis=’y’)) 
and  IIdtype=’A’)  or  Idtype=’a’))  and  Itime_factor>=l)  then 
begin 
adj:=l; 

ifIttype=’M’)  or  Ittype=’m’)  then  adj;=12; 
ifIttype=’Q’)  or  Ittype=’q’)  then  adj:-3; 
for  j:=l  to  kk  do 
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begin 

if(copy(inv[j],l,l)<>’C’)  then 
begin 

for  1]:=!  to  mm  do 
begin 

if(length(graph_path)>l)  then  writeln(dataset,’OPEN  PLOT  ’,graph_path,’\’.rcs3[j],’.GSP’); 
writeln(dataset,’  SET  VARl  /  =  ’,res3fj],’((t-l)*BLK+l+(’,jj,’-l))’); 

\vriteln(dataset,’DO  J=l,MO/’,adj); 

writeln(dataset,’  ACCUMULATE  VARl  ((J-l)*’,adj,’)+l  (J*’,adj,’)  SUMl  ((J-l)*’,adj,’)+l’); 
writeln(dataset,’END  DO  J’); 

writeln(daiaset,’  SET  VAR2  1  MO/’,adj,’  =  SUMl(t*’,adj,’)’); 
writeln(dataset,’  CLEAR  SUMl  VARl’); 

writeln(dataset,’  DISPLAY(STORE=HEADER)  ’’DISTRICT  ’.jj.’  TRENDS  (Annual)’”); 
writeln(dataset,’GRAPH(HEADER=HEADER,HLABEL=”Year”,  $’); 
writeln(dataset,  ’  STYLE=  ’  ,stile  1 ,VLABEL=’  ”  ,res3|j] ,”  ’)  ’ ); 
vvriteln(dataset,’  #  VAR2’); 
end; 
end; 
end; 

writeln(dataset,’CLEAR  VAR2’); 
end; 

dtype:=’m’; 

if((trend=’Y’)  or  (trend=’y’))  and  ((nat=’Y’)  or  (nat=’y’)) 
and  ((dtype=  M’)  or  (dtype='m’))  and  (time_factor>4)  then 
begin 

writelnCdatayet,’  DISPLAY(STORE=HEADER)  ’’NATIONAL  TRENDS’”); 

for  j:=l  to  kk  do 

begin 

if(copy(inv[j],Ll)<>’C’)  then 
begin 

ifflcngth(gTaph_path)>l )  then  writeln(dataset,’OPEN  PLOT  ’,graph_path,’\’,res3[j],’.GSP’'/, 
writeln(dataset,’GRAPH(HEADER=HEADER,  $’); 
writeln(dataset. '  STYLE-'  ,sule  1 ,’  .VLABEL-’  ’  ’  ,res3[jl ,’”)’); 
writeln(dataset,’  #  ’,res3[jl); 
end; 
end; 
end; 

if((trend=’Y’)  or  (trend=’y’))  and  ((nat=’Y’)  or  (nai=’y’)) 
and  ((dtype=’Q’)  or  (dtype=’q’))  and  (time_factor>-4)  then 
begin 

wntelntdataset,’  DISPLAY(STORE=i lEADER)  ’’NATIONAL  TRENDS  (Quarterly)”'); 
adj:  =  l; 

if(ttype='M’)  or  (ttype-'m')  then 
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begin 

adj:=3; 

end; 

for  j:=l  to  kk  do 
begin 

if(copy(inv[j],l, !)<>’€’)  then 
begin 

if(length(graph_path)>l)  then  writeln(dataset,’OPEN  PLOT  ’,graph_path,V,res3[j],’.GSP’); 
writeIn(dataset,’DO  I=l,MO/’,adj); 

writeln(dataset,’  ACCUMULATE  ’,res3[j],’  ((M)*BLK*’,adj,’)+l  (I*BLK*’,adj,’)  SUMl 

((I-l)*BLK*’,adj.’)+U); 

writeln(dataset,’END  DO  I’); 

writeln(dataset,’  SET  VARI  1  MO/’,adj,’  =  SUMI(t*BLK*’,adj,’)/BLK’); 
writeln(dataset,’  CLEAR  SUMl’); 

writeln(dataset,’GRAPH(HE.ADER=HEADER,HLABEL=”QuaTter’ 
writeln(dataset,’STYLE=’,stilel,’,VLABEL=’”a-es3[j], 
wTiteln(dataset,’  #  VARI’); 
writelnfdataset, ’CLEAR  VARI’); 

end; 

end; 

end; 

if((trcnd=’Y’)  or  (trcnd=’y’))  and  ((nat=’Y’)  or  (nat=’y’)) 
and  ((dtype=’A’)  or  (dtype=’a’))  and  (time_factor>=l)  then 
begin 

writelp(dataset,’  DISPLAY(STORE=HEADER)  ’’NATIONAL  TRENDS  (Annual)’”); 
adj:=l; 

if(ttype=’M’)  or  (ttype=’m’)  then  adj:=12; 
if(ttype=’Q’)  or  (ttype=’q’)  then  adj:=3; 
for  j:=l  to  kk  do 
begin 

if(copy(inv[j],l,l)<>’C’)  then 
begin 

if(length(gTaph_path)>l)  then  writeln(dataset,’OPEN  PLOT  ’,graph__path,’\’,res3[j],’.GSP’); 
writeln(dataset,’DO  I=l,ivlO/’,adj); 

writeln(dataset,’  ACCUMULATE  ’,res3[j],’  ((I-l)*BLK*’,adj,’)+l  (I*BLK*’,adj.’)  SUMl 
((I-l)*BLK*’,adj,’)+r); 

writeln(dataset,'END  DO  I’); 

writeln(dataset,’  SET  VARI  1  MO/’,adj,’  =  SUMl(t*BLK*’,adj,’)/BLK'); 
writeln(dataset,’  CLEAR  SUMl’); 

writeln(dataset,’GRAPH(HEADER=HEADER,HLABFL=”Year”,  $’); 
writeIn(dataset,’STYLE=’,stilel,’,VLABEL=”'n-es3[j], ’”)’); 
writeln(dataset,’  #  VARI’); 
vmteln(dataset, ’CLEAR  VARI’); 
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end; 

end; 

end; 

end;  {stats_out} 


procedure  national; 
var  adj  :  integer, 
stile  1  :  string[10]; 

stile2  :  string[10]; 

begin 

stilel:=’LINE’; 

stile2:=’LINE’; 

if(style=’b’)  or  (style=’B’)  then  stile l.-’BARGRAPH’; 
if(style=’b’)  or  (style=’B’)  then  stile2:=’OVERLAP’; 
if(style=’p’)  or  (style=’P’)  then  stile l:=’POLYGONAL’; 

if((graph_for=’Y’)  or  (graph_for=’y’))  and  ((nat=’Y’)  or  (nat=’y’)) 

and  ((dtype=’M’)  or  (dtype=’m’))  then 

begin 

right_trim(graph_path); 

if(length(graph_path)>l)  then  writeln(dataset,’OPEN  PLOT  ’,graph_path,V^M.GSP’); 
writeln(dataset,’DO  I=l,MO’); 

writeln(dataset,’  ACCUMUL\TE  levelpij  ((I-1)*BLK)+1  (I*BLK)  SUMl  ((M)*BLK)+r); 
writeln(dataset,’  ACCUMULATE  levelact  (a-l)*BLK)+l  (I*BLK)  SUM2  ((I-l)*BLK)+r); 
writeln(dataset,’END  DO  I’); 

writeln(dataset,’  SET  VARl  ’,time_factor,’+l  MO  =  SUMl(t*BLK)’); 
writeln(dataset,  SET  VAR2  ’,time_factor,’+l  MO  =  SUM2(t*BLK)’); 
writeln(dataset,’  CLEAR  SUMl  SUM2’); 
writeln(dataset,’SPGRAPH(TWOSCALE)’); 

write!n(dataset,’  DISPLAY(STORE=HEADER)  ’’NATIONAL  ACTUAL  vs.  FORECAST  ’”); 
writeln(dataset,’GRAPH(HEADER=HEADERTlLABEL=”Monihs”,  $’); 
writeln(dataset,’STYLE=’,stile2,’,VLABEL=”Forecast  vs.  Actual”)’); 
writeln(dataser,’  VARl’); 
writeln(dataset,’GRAPH  1’); 
writeln (dataset,’  #  VAR2’); 
writeln(dataset,’SPGRAPH(DONE)’); 
end; 

ATiteln(dataset,’  ’); 

if((graph_for=’Y’)  or  (gTaph_for=’y’))  and  ((na’  ’Y’)  or  (nat-’y')) 
and  ((dtype=’Q’)  or  (dtype=’q’))  and  (time_factor>=4)  then 
begin 

if(ttype=’M’)  or  (ttype=  .o’)  then  adj: =3; 
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right_trim(graph_path); 

if(lenpth(graph_path)>l)  then  writeln(dataset,’OPEN  PLOT  ^graph_path,^NLQ.GSP’); 
writeln(dataset,’DO  1=1  .MO/’,adj); 

writelnCdataset,’  ACCUMULATE  levelpij  (a-l)*BLK*’,adj,’)+l  (I*BLK*’,adj,’)  SUMl 
((I-1)*B’  K*’,rij’)+U); 

writelr'datas  ,1,  ACCUMULATE  le' .dact  ((M)*BLK*’,adj,’)+l  {I*BLK*’,adj,’)  SUM2 
((I-1)*L  K*’,adj;)+r); 
write! ’^’dataset, ’END  DO  I’); 

writeinidatasf  t,’  SET  V/  R1  1  MO/’,adj,’  =  SUMl(t*BLK*’,adj,’)’); 
wTiteln(datas..,’  SET  V  R2  1  MO/’,adj,’  =  SUM2(t*BLK*’,adj,’)’); 
writeln(dataset,’  CLEAi^  SUMl  SUM2’); 
writein(dataset,  ’  SPGRAPH(TWOSCAL£)’); 

writelnldataset,’  DlSPLAY(STORE=HEADER)  ’’NATIONAL  ACTUAL  vs.  FORECAST 
(Quarterly)’”); 

writeln(daiaset,’GRAPH(HEADER=HEADERTILABEL=”Quarters”,  $’); 
writeln(dataset,’STYLE=’,stile2,’,VLABEL=”Forecasi  vs.  Actual  Levels”)’); 
writeln(dataset,’  #  VARl’); 
writeln(dataset, ’GRAPH  1’); 
wTiteln(dataset,’  #  VAR2’); 
writeln(dataset,’SPGRAPH(DONE)’); 
end; 

writeln(dataset,’  ’); 

if((graph_for=’Y’)  or  (graph_for=’y’))  and  ((nat=’Y’)  or  (nat=’y’)) 
and  ((dtype=’A’)  or  (dtype=’a’))  and  (time_factor>=4)  then 
begin 

if(ttype=’M’)  or  (ttype=’m’)  then  adj:=12; 
if(ttype=’Q’)  or  (ttype=’q’)  then  adj:=3; 
right_trim(graph_path); 

if(lengih(graph_path)>l)  then  writeln(dataset,’OPEN  PLOT  ’,graph_path,’\NLA.GSP’); 
writeln(dataset,’DO  l=l,MO/’,adj); 

writelnCdataset,’  ACCUMULATE  levelprj  ((M)*BLK*’,adj,’)+l  (l*BLK*’,adj,’)  SUMl 
((l-l)*BLK’^’,adj,’)+l’); 

writelnCdataset,’  ACCUMULATE  levelact  ((M)*BLK*’,adj,’)+l  (l*BLK*’,adj,’)  SUM2 
(a-l)*BLK*’,adj, ’)+]’); 
writeln(dataset,’END  DO  1’); 

writelnCdataset,’  SET  VARl  1  MO/’,adj,’  =  SUMl(t*BLK*’,adj,’)’); 
writelnCdataset,’  SET  VAR2  1  MO/’,adj,’  =  SUM2(t*BLK*’,adj,’)’); 
writelnCdataset,’  CLEAR  SUMl  SUM2’); 
writeInCdataset,’SPGRAPHCTWOSCALE)’); 

writelnCdataset.’  DlSPLAY(STORE=HEADER)  ’’NATIONAL  ACTUAL  vs.  FORECAST 
(Annual)’”); 

writeln(dataset,’GRAPHCHEADER=HEADER,HLABEL=”Year”,  $’); 
writeln(dataset,'STYLE=’,stile2,’,VLABEL=”Forecast  vs.  Actual  Levels”)’); 
writelnCdataset,’  #  VARl’); 
writelnCdataset, ’GRAPH  1’); 


82 


writeln(dataset,’  #  VAR2’); 
wriieln(dataset,  SPGRAPH(DONE)’); 
end; 

vvriteln(dataset,’  ’); 

if((graph_for=’'‘;  ’)  or  (graph_for=’y’))  and  ((nat=’Y’)  or  (nat=’y’)) 

and  ((dtype=’M’)  or  (dtype=’m’))  then 

begin 

right_trim(grapn_path); 

if(lengih(graph_paih)>l)  then  vnteln(dataset,’OPEN  PLOT  ^graph_palh,^NRM.GSP’); 
writeln(dataset,’  DISPLAY(STORE=hTZADER)  ’’NATIONAL  RESIDUALS  (Monthly)’”); 
writeln(dataset,’GR.APH(HEADER=HEADER,  $’); 

writeln(dataset,’STYLE=’,stile2,’,VLABEL=”Difference  Predicted  vs.  Actual”)’); 
writeln (dataset,’  #  RESIDS’); 
end; 

writeln(dataset,’  ’); 

if((graph_for=’Y’)  or  (graph_for=’y’))  and  ((nat=’Y’)  or  (nat=’y’)) 
and  ((dtype=’Q’)  or  (dtype=’q’))  and  (time_factor>=4)  then 
begin 

if(ttype=’M’)  or  (ttype=’m’)  then  adj:-3; 
right_trim(graph_path); 

if(length(graph_path)>l)  then  writeln(dataset,’OPEN  PLOT  ’,graph_path,’\NRQ.GSP’); 
writein(dataset,’DO  I=LMO/’,adj); 

writeln(dataset,’  ACCUMULATE  levelprj  (a-l)*BLK*’,adj,’)+i  (I*BLK*’,adj,’)  SUMl 
((H)*BLK*’,adj, ’)+!’); 

writeln(dataset,’  ACCUMULATE  levelact  ((I-l)*BLK*’,adj,’)+l  (I*BLK*’,adj,’)  SUM2 
((M)*BLK*’,adj,’)+l’); 
wTiteIn(dataset,’END  DO  I’); 

writeln(dataset,’  SET  VARl  1  MO/’,adj,’  =  SUMl(t*BLK*’,adj,’)-SUM2(t*BLK*’,adj;)’); 
writeln(dataset,’  CLEAR  SUMl  SUM2’); 

writeln(dataset,’  DISPLAY(STORE=HEADER)  ’’NATIONAL  RESIDUALS  (Quarterly)”’); 
write!n(dataset,’GRAPH(HEADER=HEADERTlLABEL=”Quaners”,  $’); 
writeln(dataset,’STYLE=’,stile2,’,VLABEL=”Difference  Forecast  vs.  Actual  Levels”)’); 
writeln(dataset,’  #  VARl’); 
end; 

write!n(dataset,’  ’); 

if((graph_for=’Y’)  or  (graph_for=’y’))  and  ((nat=’Y’)  or  (nat=’y')) 
and  ((dtype=’A’)  or  (dtype=’a’))  and  (time_factor>=4)  then 
begin 

if(ttype='M’)  or  (ttype=’m’)  then  adj:=12; 
if(ttype='Q’)  or  {ttype=’q’)  then  adj;-3; 
right_tnm(graph_path); 

if(length(graph_path)>l)  then  writeln(dataset,’OPEN  PLOT  ’,graph_path,\NRA.GSP’); 
writeln(dataset,'DO  I=LMO/’,adj); 
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writeln(dataset,’  ACCUMULATE  levelprj  (a-l)*BLK*’,adj,’)+l  (I*BLK*\adj,’)  SUMl 

((M)*BLK*’,adj,’)+l’); 

writeln(dataset,’  ACCUMULATE  levelact  ((I-l)*BLK*’,adj;)+l  (I*BLK*’,adj,’)  SUM2 
((M)*BLK*’,adj,’)+l’); 
writeln(dataset,’END  DO  T); 

writeln(dataset,’  SET  VARl  1  MO/’,adj,’  =  SUMl{t*BLK*’,adj,’)-SUM2(t*BLK*\adj,’)’); 
writeln(dataset,’  CLEAR  SUMl  SUM2’); 

writeln(dataset,’  DISPLAY(STORE=HEADER)  ’’NATIONAL  RESIDUALS  (Annual)”’); 
writeln(dataset,’GRAPH(HEADER=HEADERTILABEL=”Year’  ’,  $’); 
writeIn(dataset,’STYLE=’,stile2,’,VLABEL=”Difference  Forecast  vs.  Actual  Levels”)’); 
writeln(dataset,’  #  VARl’); 
end; 

writeln(dataset,’  ’); 

end;  {Procedure  National} 

procedure  nationaJ_for, 

var  adj  :  integer, 
stilel  :  string[10]; 
stile2  :  string[10]; 

begin 

stilel  :=’LINE’; 
stile2:=’LINE’; 

if(style=’b’)  or  (style=’B’)  then  stile  1;=’BARGRAPH’; 
if(style=’b’)  or  (style=’B’)  then  stile2:=’OVERLAP’; 
if(style=’p’)  or  (style=’P’)  then  stilel ;=’POLYGONAL’; 

writeln(dataset,’IEVAL  OUT  =  ’,rcg_end_yr,’-’,reg_sta_yr); 
if((graph_fon=’Y’)  or  (graph_for=’y’))  and  ((nat=’Y’)  or  (nat=’y’)) 
and  ((dtype=’M’)  or  (dtype=’m’))  then 
begin 

right_trim(graph_path); 

if(length(graph_path)>l)  then  writeln(dataset,’OPEN  PLOT  ’,graph_path,’\NLMl.GSP’); 

writeln(dataset,’  DISPLAY(STORE=HEADER)  ’’NATIONAL  GOALA  vs.  FORECAST  ’”); 
writelntdataset,’GRAPH(HEADER=HEADER,  $’); 
wTiteln(dataset,’STYLE=’,.stile2,’,VLABEL=”GOALA  vs.  Forecast”)  2’); 
writeln(dataset,’  #  GOALA’); 
writeln(dataset,’  #  CONTRACT’); 
end; 

writeln(dataset,’  ’); 

if((graph_for=’Y’)  or  (graph_for=’y’))  and  ((nat=’Y’)  or  (nat=’y')) 
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and  ((dtype=’Q’)  or  (dtype=’q’))  and  (time_factor>=4)  then 
begin 
adj:=l; 

if(ttype=’M’)  or  (ttype=’m’)  then  adj:=3; 
right_trim(graph_path); 

if(length(graph_path)>l)  then  wTite!n(da£asct,’OPEN  PLOT  ^graph_path,^NLQl.GSP’); 
writeln(dataset,’DO  I=((est_end/BLK)/’,adj,’)+l ,MO/’,adj); 

writeln(dataset,’  ACCUMULATE  levelpij  ((M)*BLK*’,adj,’)+l  (I*BLK*’,adj,’)  SUMl 
((M)*BLK*’,adj/)+l’); 

writeln(dataset,’  ACCUMULATE  levelact  ((I-l)*BLK*’,adj,’)+l  (I*BLK*’,adj,’)  SUM2 
((M)*BLK*’,adj,’)+l’); 

writeln(dataset,’END  DO  T); 

writeln(dataset,’  SET  VARl  /  =  SUMl(t*BLK*’,adj,’)’); 
writeln(dataset,’  SET  VAR2  /  =  SUM2(t*BLK*’,adj,’)’); 
writeln(dataset,’  CLEAR  SUMl  SUM2’); 
writeln(dataset,’SPGRAPH(TWOSCALE)’); 

writeln(dataset,’  DISPLAY(STORE=HEADER)  ’’NATIONAL  ACTUAL  vs.  FORECAST 
(Quarterly)’”); 

writeln(dataset,’GRAPH(HEADER=HEADER4iLABEL=”Quarters”,  $’); 
writeIn(dataset,’STYLE=’,stile2,’,VLABEL=”Forecast  vs.  Actual  Levels”)’); 
writeln(dataset,’  #  VARl’); 
writeln(dataset, ’GRAPH  1’); 
writeln(datasct,’  #  VAR2’); 
wTiteln(dataset,’SPGRAPH(DONE)’); 
end; 

writeln(dataset,’  ’); 

if((graph_for=’Y’)  or  (graph_for=’y’))  and  ((nat=’Y’)  or  (nat=’y’)) 
and  ((dtype=’A’)  or  (dtype=’a’))  and  (time_factor>=4)  then 
begin 
adj:=l; 

if(ttype='M’)  or  (ttype=’m’)  then  adj:=12; 
it(ttype=’Q’)  or  (ttype=’q’)  then  adj:=3; 
right_trim(graph_path); 

ifnength(graph_path)>l)  then  writeln(dataset,’OPEN  PLOT  ’,graph_path,’\NLAl.GSP’); 
writeln(dataset,’DO  I=((est_end/BLK)/’,adj,’)+l,MO/’,adj); 

writeln(dataset,’  ACCUMULA'IE  levelpij  ((I-l)*BLK*’,adj.’)+l  (I*BLK*’.adj,’)  SUMl 
((I-l)*BLK*’,adj.’)+r); 

writeln(dataset,’  ACCUMULATE  levelact  ((I-l)*BLK*’,adj,’)+l  (PBLK*’,adj.’)  SUM2 
((l-l)*BLK*’,adj, ’)+!’); 

\vriteln(dataset,’END  DO  I’); 

writeln(dataset,’  SET  VARl  /  =  SUMl(t*BLK*’,adj,’)’); 
writeln(data.set,’  SET  VAR2  /  =  SUM2(t*BLK*  .adj,’)’); 
writeln(dataset,’  CLEAR  SUMl  SUM2’); 
writeln(dataset,’SPGRAPH(TWOSCALE)’); 


85 


writeln(dataset,’  DISPLAY(STORE=HEADER)  ’’NATIONAL  ACTUAL  vs.  FORECAST 
(Annual)”’); 

writeln(dataset,’GRAPF  HEAnER=HEADERTILABEL=”Year”,  $’); 
writeln(dataset,’STYLE=’,stile2,’,VLABEL=”Forecast  vs.  Actual  Levels”)’); 
writeln(dataset,’  #  VARl’); 
writeln(dataset,’GRAPH  1’); 
writeln(dataset,’  #  VAR2’); 
writeln(dataset.’SPGRA^^H(DONE)’); 
end; 

writeln(dataset,’  ’); 

if((graph_rcsids=’Y’)  or  (graph_resids=’y’))  and  ((nat=’Y’)  or  (nat=’y’)) 

and  ((dtype=’M’)  or  (dtype=’m’))  then 

begin 

right_trim(graph_path); 

if(lengih(graph_path)>l)  then  writeln(dataset,’OPEN  PLOT  ’,graph_path,’\NRMLGSP’); 
writeln(dataset,’  DISPLAY(STORE=HEADER)  ’’NATIONAL  RESIDUALS  (Monthly)”’); 
writeln(dataset,’GRAPH(HEADER=HEADER,  $’); 

writeln(dataset,’STYLE=’,stilel,’,VLABEL=”Difference  Forecast  vs.  Actual”)’); 
\vriteln(dataset,’  #  RESIDS’); 
end; 

writeln(dataset,’  ’); 

if((g;raph_resids=’Y’)  or  (graph_resids=’y’))  and  ((nat=’Y’)  or  (nat=’y’)) 
and  ((dtype=’Q’)  or  (dtype=’q’))  and  (time_factor>=4)  then 
begin 
adj:=l; 

if(ttype=’M’)  or  (ttype=’m’)  then  adj:=3; 
right_trim(graph_path); 

if(length(graph_path)>l)  then  writeln(dataset,’OPEN  PLOT  ’,graph_path,’\NRQl.GSP’); 
writeln(dataset,’DO  I=((est_end/BLK)/’,adj,’)+l,MO/’,adj); 

writeln(dataset,’  ACCUMULATE  levelpij  ((I-l)*BLK*’,adj,’)+l  (I*BLK*’,adj,’)  SUMl 
((I-l)*BLK*’.adj, ’)+!’); 

writeln(dataset,’  ACCUMULATE  levelact  ((M)*BLK*’,adj,’)+l  (I*BLK*’,adj,’)  SUMl 
((M)*BLK*’,adj,’)+l’); 
wTiteln(dataset,’END  DO  I’); 

writeln(dataset,’  SET  VARl  /  =  SUMl(t*BLK*’,adj,’)-SUM2(t*BLK*’,adj,’)’); 
writeln(dataset,’  CLEAR  SUMl  SUM!’); 

wnteln(dataset,’  DISPLAY(STORE=HEADER)  ’’NATIONAL  RESIDUALS  (Quarterly)’”); 
wri:eln(dataset,’GRAPH(HEADER-HEADER.HLABEL=”Quarters”,  $’); 
writeIn(datastt,’STYLE=’,stilel,’,VLABEL=”Difference  Forecast  vs.  Actual  Levels”)’); 
writeln(dataset,’  #  VARl’); 
end; 

writeln(dataset,’  ’); 

if((graph_resid.s=’Y’)  or  (graph_resids=’y’))  and  ((nat=’Y’)  or  (nat=’y’)) 
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and  ((dtype=’A’)  or  (dtype=’a  ))  and  (time_factor>=4)  then 
begin 
adj:=l; 

if(ttype=’M’)  or  (ttype=’m’)  then  adj:=12; 
if(ttype=’Q’)  or  (nype=’q’)  then  adj:=3; 
right_trim(graph_path); 

if(lengtli(graph_path)>l)  then  wTiteln(dataset,’OPEN  PLOT  ’,graph_path,V^RAl.GSP’); 
writein(dataset.’’^0  I=(fest_er.d/BLKV’,adj,’)+l,MO/’,adj); 

wntein(dataset,'  ACCUMULATE  levelpij  ((I-])*BLK*’.adj,’)+l  (I*BLK*’,adj,’)  SUMl 

f(M)*BLK*\adj,’)+l’); 

wTiteIn(dataset,’  ACCUMUI.ATE  levelact  ((M)*BLK*’,adj,’)+)  (I*BLK*’,adj,’)  SUM2 
((I-l)*BLK*’,adj, ’)+!'); 
wriieln(dataset,’END  DO  I’); 

writeln(dataset,’  SET  VARl  /  =  SUMl(t*BLK*’,adj;)-SUM2(t*BLK*’,adj,’)’); 
writeln(dataset,’  CLEAR  SUMl  SUM2’); 

writeln(dataset;  DISPLAY! STORE=HEADER)  ’’NATIONAL  RESIDUALS  (Annual)’”); 
writeln(dataset,’GRAPH(HEADER=HEADERTILABEL=” Year”,  S’); 
writeln(dataset,'STYLE=’,stilel,’,VLABEL=”Difference  Forecast  vs.  Actual  Levels”)’); 
writeln(dataset,’  #  VARU); 
end; 

writeln(dataset,’  ’); 

end;  {Procedure  National  Forecast} 

procedure  open_data; 

label  si; 

var 

cont  ;  array}  1. .3]  of  string[2]; 
varlist_l  :  string[70]; 

varlist_2  :  string(701; 

varlist_3  :  string!  70]; 
varlist_4  :  stringl701; 
adj,ii  :  integer; 

V  flagl  ;  integer, 

v_flag2  ;  integer, 

v_flag3  :  integer, 

V  tlagd  :  integer; 

begin 

nght_trim(d_name ); 
time  factor:=l; 

if(levels=’y’)  then  lcvels:=’Y’; 
if(deflator=’y’)  then  deflator;=’Y’; 
if(levels=  ’n’)  then  levels;='N’; 
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if(deflator=’n’)  then  deflator:=’N’; 

res3[l]:=’RELPAY’; 

res3[2]:=’UNEMP 

res3[3]:=’GOALA 

res3[4]:=’GOALNOTA’; 

rcs3[5]:=’ARECPA’; 

res3[6]:=’ADV’; 

res3[7]:=’ACF’; 

res3[8]:=’BON3’; 

res3[9]:=’BON3SQ’; 

res3[10]:=’BUYUP’; 

res3[ll]:=’POL86’; 

res3[12]:=’DUM688’; 

res3[13]:=’DUM489’; 

nvic_rat:=13; 


if(ttype=’M’)  or  (ttype=’m’)  then  time_factor:=12; 
if(ttype=’Q’)  or  (ttype=’q’)  then  time_factor:=4; 
assign(dataset,  ’alloc.sys  ’ ); 
rewrite  (dataset); 

writeln(dataset,’BMA  DATA  1500  GLOBAL  1000  COM  1000  CON  500  EXP  100  LOCAL  50 
$’); 

writeln(dataset, ’OPERANDS  100’); 
writeln(dataset, ’OUTPUT  NOECHO’); 
writeln (dataset, ’CAL  78  I  12’); 

writeln(datasel,’IEVAL  DBEGIN  =  (’,rcg_sta_yr,’,’ jeg_sia_mo,’)’); 
writeln(dataset,’IEVAL  DLAST  =  (’,reg_end_yr,’,’a'eg_end_mo,’)’); 
writeln(dataset,’IEVAL  DLASTFC  =  (’,for_end_yr,’,’,for_end_mo,’)’); 
writeln(dataset,’IEVAL  DHRSTFC  =  DLAST  +  1’); 
writeln(dataset,’IEVAL  DEND  =  DLASTFC  +  12’); 
writeln(dataset,’ALL  0  DEND’); 
writeln(dataset,’IEVAL  MO  =  DLAST-DBEGIN+l’); 
writeln(dataset,’IEVAL  BLK  =  1’); 
writeln(dataset,’  ’); 
step:=0; 


writeln(dataset,’OPEN  DATA  ’,in_rile); 

v_flagl:=0; 

v_flag2;=0; 

v_flag3;=0; 

v_flag4:=0; 

cont[l]:=’  ’; 
cont(2]:=’  ’; 
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cont[3]:=’ 

varlist_l:=’ 

varlist_2:=’ 

varlist_3:=’ 

varlist_4;=’ 

for  k:=l  to  nvic_rat  do 
begin 

if(copy(res3fk],l,l)<>’  ’)  and  (k<8)  and  (copy(inv{k],l,l)<>’C’)  then 
begin 

varlist_l:=varlist_l+res3[k]+’ 

v_flagl:=l; 

end; 

if(copy(res3[k],l,l)<>’  ’)  and  (k>7)  and  (k<15)  and  (copy(inv[k],l,I)<>’C’)  then 
begin 

varlist_2:=varlist_2+res3[k]+’ 

v_flag2:=l; 

end; 

if(copy(res3[k],l,l)<>’  ’)  and  (k>14)  and  (k<22)  and  (copy(inv[k],l,l)<>'C’)  then 
begin 

varlist_3:=varlist_3+res3fk]+’  ’; 
v_flag3:=l; 
end; 

if(copy(res3[k],l,l)<>’  ’)  and  (k>21)  and  (k<29)  and  (copy(inv[k],l, 1)<>’C’)  then 
begin 

varlist_4:=varlist_4+rcs3[k]+’  ’; 
v_flag4:=l; 
end; 
end; 

if(v_flag2=l)  then  cont[ll:=’  $’; 
if(v_flag3=l)  then  cont[2];=’ 
if(v_flag4=l)  then  cont[3]:=’ 

writeln(dataset,’  ’); 

writeln(dataset,’DATA(FORMAT=RATS)  ’,reg_sta_yr,',’,reg_sta_mo, 
■,reg_end_yr,’,’,reg_end_mo,’  T126RM  GSMARM’i; 

wri  tel  n  (dataset, ’SET(S  CRATCH)  GSM  ARM  ’,reg_sta_yr,’,’,reg_sta_mo, 
’,reg_end_yr,’,’,reg_end_mo,’  =  LOG(T126RM(t)+GSMARM(t))’); 

writeln(dataset,’DATA(FORMAT  =  RATS)  ’,reg_sta_yr,’,’,reg_sta_mo. 

',reg_end_yr,’,’,reg_end_mo,'  T126CM  GSMACM’); 

writeln(dataset/SET(SCRATCH)  GSMACM  ’,reg_sta_>T,’,’,reg_sta_mo. 
’,reg_end_yr,’,’,reg_end_mo,’  =  LOCj(T126CM(t)+GSMACM(t))’); 

writeln(dataset,’DATA(FORMAT  =  RATS)  ’.reg_sta_yr,’,’,reg_sta_mo, 

’ ,reg_end_yT, ’ , ’ ,reg_end_mo. ’  D A YSRM ’); 
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wntei'i(dat:  -v  SET( SCRATCH)  DAYSRM  ',reg.  sta_.yr, ’ , ' ,reg_sta_mo, ’ 
’,for_^r,vl  _end_mo,’  =  DAYSRM(t-12)’); 

\vrite!n(dataset,’S. -T  DAYS  ’,reg_sta_yr,’  ’,ieg_sta_rno,’  \for_end_yr,’,’,tcr_end_mc,’  = 
LOGfDAYSRMCt))’); 


writeln(dataset,’ 
if(time_factor=I2)  then 
begin 

\vriteln(dataset,’lHVAL  reg_sta  =  DBEGIN;  lEVAL  reg_end  =  DLASTFC’); 
end; 

wTiteln(dataset,’  ’); 

vvriteln(dataset, ’CLEAR  PVWK1821  PVMILPAY  RELPAY’); 

writeln(dataset,’DATA(FORMAT=RATS)  DBEGIN-2  DLASTFC+2  PV'wK182’  PVMILPAY’); 
wTitelnldataset/SETISCRATCH)  PVWK1821  DBEGIN  DLASTFC  =  (PV'WK1821(t-2)  + 
PVW’K1821ft-l)  +  $’); 

writeln(dataset,’  PVWK1821(t)  +  PVVv'rC1821(t+l)  +  S’); 

wTiteln(dataset,  ’  PVWK 1 82 1  {t+2))/5  ’); 

writein(dataset,’SET{SCRATCH)  PVMILPAY  DBEGIN  DLASTFC  --  (PVMILPA /';-2)  + 

PVMILPAY(l-l)  +  S’); 

NVTitelntdataset,’  PVMILPAY(t)  +  PVMILPAY(t+l)  +  S'); 

writelntdataset,’  PVMILPAY(t+2))/5'). 

writeln(dataset,'SEl'  RELPAY  DBEGiN  DLAS'lFC  = 
LOG{PVMILPAY(t)/(52*PVWK1821(t)))’); 
writeln(dataset,’  ’); 
writeln(dataset,’CLEAR  UNEMP’); 

wTiteln(dataset.’DATA(FORMAT=RATS)  DBEGIN  DLASTFC  UNFMP’); 
writeln(dataset,’SET(SCRATCH)  UNEMP  DBEGIN  DLASTFC  =  LCG(UNEMP(t))’); 
write  In  (dataset,’  ’); 
wTiteln(dataset, ’CLEAR  ACF’); 

writeIn(dataset,’DATA(FORMAT=RATS)  DBEGIN  DLAST  ACFEXPT  ACFCOV  ACFPV’); 
writeln(dataset,’SET(SCRATCH)  ACFEXPT  DHRSTFC  DLASTFC  =  ACF'EXrT(i-12'’); 
writeln(dataset,’DATA(FORMAT=RATS)  DBEGIN  DLASTFC  COLLCOST’); 
wTiteln(dataset,’SET  ACF  DBEGIN  DLASTFC  =  LOG(ACFEXPT(t)/COLLCOST(t))’); 
wTiteln(dataset,’  ’); 

wTiteln(dataset, ’CLEAR  BON3  BON3SQ  BONUSQ  BONUS3’); 
wTiteln(dataset,’DATA(FORMAT=RATS)  DBEGIN  DLAST  BONUS3  BONCOV3’); 
wTiteln(dataset.’SET(SCRATCH)  BONUS3DnRSTFC  DLASTFC  =  (L0975)’^BONUS3(t  12)’); 
writeln(dataset.’SET(SCRATCII)  BONUS3  DBEGIN  DLASTFC  = 
BONUS3(t)/(52*PVWK1821(t))’); 

wnteln(dataset.’SET(SCRATCH)  BONCOV3  DFIRSTFC  DLASTFC  =  BONCOV3(t-12)’); 
wntelnIdataset.’SET  BON3  DBEGIN  DLASTFC  =  BONUS3(t)*BONCOV3(t)’), 
writeln{dataset,’SET  BON3SQ  DBEGIN  DLASTFC  =  BON3(t)*BON3(t)’); 
wTiteIn(dataset,’  ’); 

wTiteln(dataset, ’CLEAR  GOALA  GOALNOTA’); 
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v.Titeln(dataset,’DATA(FOr;MAT=RATS)  DBEGIN  DLASTFC  AGLM13A  AGLM3B 
AROGOAL  ARECP^’); 

v.riteln(dataset,’SET(SCRATCM)  ARECPA  DBEGIN  DLASTFC  =  LOG(ARECPA(t))’); 
writeln(dataset,’SET  GOALA  DBEGIN  DLASTFC  =  LOG(AGLM13A(t))’); 
writeln(dataset,’SETGOALNOTA  DBEGIN  DLASTFC  =  LC)GrAGLM3B(t)+AROGOAL(t))’); 
writeln(dataset, ’CLEAR  ADV’); 

wTiteln(dataset,’DATA(FORMAT-RATS)  DBEGIN  DLAST  TV  RADIO  PRINT’); 
wnteln(dataset,’SET(SCRATCH)  TV'  DHRSTFC  DLASTFC  =  (1.1 16)*TV(t-12)’); 
wTiieln(dataset,’SET(SCRATCH)  RADIO  DFIRS'TFC  DLASTFC  =  (1.1 16)*RADIO(t-12)’); 
wTiteln(dataset,’SET(SCRATCH)  PRINT  DFIRSTFC  DLASTFC  =  (1.1 16)*PRINT(t-12)’); 
wTitein(dataset,’DATA(FORMAT=RATS)  DBEGIN  DLAS'TFC  ADVPD'TV  ADVPDRAD 
ADVPDMAG’); 

wTiteln(dataset,’SET(SCRATCH)  TV  DBEGIN  DLASTFC  =  TV(t)/(ADVPDTV(;)*0.01)’); 
writeln(dataset,’SET(SCRATCH)  RADIO  DBEGIN  DLASTFC  = 
RAD10(t)/(ADVPDRAD(t)*0.01)’); 

writeln(dataset,’SET(SCRATCH)  PRINT  DBEGIN  DLASTFC  = 

PRINT(t)/(ADVPDMAG(t)*0.01)’); 

writeln(dataset,’SET  ADV  DBEGIN  DLASTFC  =  LOG('rV(t)+RADIO(t)+PRINT(t))’); 
writeln(dataset,’  ’); 
writeln(dataset, ’CLEAR  SEAS’); 

writeln(dataset, ’SEASONAL  SEAS  78.1  DLAS'rFC+12  12  78,3’); 
writeln(dataset,’  ’); 
wnteln(dataset, ’CLEAR  BUYUP’); 
writeln(dataset.’SET  BUYUP  DBEGIN  DLASTFC  =  0.0’); 
writeIn(dataset.’SET  BUYUI’  87,6  DLAST  =  1.0’); 

\vriteln(dausci 

writeln(d;iiast '.  LEAR  POLfs6’); 

'--iteln^i.  ATT  rOL86  DBEGIN  85,9  =  0.0’); 

'  rite!:  ataser.'.^'IZT  POL.S6  85,10  DLASTFC  =  1.0’); 
writelruaaiasei.  E; 
wnte!r.(data;set. ’CLEAR  DUM489’); 
v.rite!n(daiaset,'SET  DUM489  DBEGIN  DLASTFC  =  0.0’:i; 
wnteln (dataset, ’SET  DUM489  89,4  89,4  =  1.0’); 
writein(dataset,’  ’); 

\vTiteln(dataset, ’CLEAR  DUM688’); 
writeln(dataset,’SET  DUM688  DBEGIN  DLASTFC  =  0.0’); 
wriieln(daiasei,’SET  DUM688  88,6  88,6  =  1.0’); 
writeln(dataset,’  ’); 
if((stats=’Y’)  or  (stats=’y’))  and 

((sample='r)  or  (samplc=’i’)  or  (sample=’B’)  or  (sample=’b’))  then 
begin 

wTiteln(dataset,’DOFOR  I  =  $’); 

writeln(dataset,’  RELPAY  UNEMP  GOALA  GOALNOTA  ARECPA  ADV  \CFBON3S’); 
writeln(dataset,’  BON3SQ  BUYUP  POL86  DUM688  DUM489’); 
writeln(dataset,’ STATISTICS  I’); 
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writeln(dataset,’END  DO’); 
writeln(dataset,’  ’); 
end; 

raw:=’y’; 

if((trcnd=’Y’)  or  (trend=’y’))  and  ((raw=’Y’)  or  (raw=’y’))  and 
((sample=’r)  or  (sample=’i')  or  (sample=’B’)  or  (sample=’b’))  then  stats_out; 
if((graph_run=’Y’)  or  (graph_run=’y’))  and  ((raw=’Y’)  or  (raw=’y’))  then  goto  si; 
writeln(dataset,’  ’); 

writeln(dataset,’EQUATION(MA=INPUT,MORE)  1  GSMACM’); 
writeln(dataset,’#  1  2  3  7’); 

writeln(dataset,’#  RELPAY  UNEMP  GOALA  GOALNOTA  ARECPA  ADV  ACF  BCInS  3  ); 
writeln(dataset,’  BON3SQ  BUYLT  POLS6  DUM688  DUM489  -SEAS  -2  0  -SEAS  -10  -7’); 
writeln(dataset, ’CLEAR  RESEDS’); 
writeln(dataset,’INrnAL(NOPRINT)  1’); 

writeln(dataset,’ITERATE(lTERATIONS=50)  1  DBEGIN  DLAST  RESIDS'); 

\vriteln(dataset,’  ’); 

writeln(dataset,’IEVAL  N  =  DLASTFC  -  DHRSTFC+l’); 
writeln(dataset, ’CLEAR  CONTRACT’); 
writeln(dataset, ’FORECAST  1  N  DFIRSTFC’); 
wTiteln(dataset,’#  1  CONTRACT  DFIRSTFC’); 

writeln(dataset,’SET(SCRATCH)  CONTRACT  DFIRSTFC  DLASTFC  =  EXP(CONTRACT(t) 
0.5  *  RSS/NDF)’); 

writeln(dataset,’ ACCUMULATE  CONTRACT  DRRSTFC  DLASTFC  CONSUM  DFIRSTFC’); 
writelnIdataset,’SET(SCRATCH)  GOALA  DHRSTFC  DLASTFC  =  EXP(GO.ALA(t))’); 
writeln(datasei, ’ACCUMULATE  GOALA  DFIRSTFC  DLASTFC  GOALSUM  DFIRSTFC’); 
writeln(dataset,’EVAL  REDIN  =  GOALSUM(DLASTFC)/CONSUM(DLASTFC)’); 
if(graph_foi^’Y’)  or  (graph_for=’y’)  then  nationaI_for; 

\vriteln(dataset, ’WRITE  ’’Goal’”); 
writeln(dataset, ’WRITE  GOALSUM(DLASTFC)’); 
writeln(dataset, ’WRITE  ’’Forecast’”); 
writeln(dataset, ’WRITE  CONSUM(DLASTFC)’); 
writeln(dataset, ’WRITE  ’’REDIN’”); 
writeln(dataset, ’WRITE  REDIN’); 

writeln (dataset,’  ’); 
si:  writeln(dataset,’END’); 
close(dataset); 
end;  {open_data} 

procedure  recall_red; 
begin 

assign(job5data,’red.sys’);; 

{$i-} 

reset(job5data); 

{$i+} 


exist:=  (ioresult  =  0); 
if  exist  then 
begin 

reset(job5(iata); 

readln(job5data,  tit) ; 

readIn(job5data,method); 

readln(job5data,in_file); 

readln(job5data,model_file); 

readln(job5data,out_file); 

readln(job5data,rats_path) ; 

readln(job5data,graph_path); 

readln(job5data,nobs); 

rea(iln(job5data,nent); 

readln(job5data,nper); 

reaciln(job5data,model); 

readln(job5data,ttype); 

readln(job5data,reg_sta_mo); 

reaciln(job5data,reg_sta_yr); 

readln(job5data,r  j  g_en(l_mo); 

readln(job5daia,rc  g_end_yr) ; 

readln(job5data,for_sta_mo); 

readln(job5data,foi  _sia_yr); 

readln(job5data,for_end_mo); 

readln(job5data,for_end_yT); 

readln(job5data,  n  vie ) ; 

readln(job5data,nvic_rat); 

readln(job5data,trcnd); 

readln  (jobSdata,  stats ); 

readIn(job5data,graph_resids); 

readln(job5data, sample); 

readln(job5data,graph_for) ; 

readln(job5data,plot_for); 

readln(job5data,dtype) ; 

readln(job5data,nat); 

readln(job5data,di  s) ; 

readln(job5data,graph_run); 

readln(job5data,levels); 

readln(job5data, deflator); 

readln(job5data,d_name); 

readln(job5data,style); 

readln(job5data,raw); 

for  j:=l  to  nvic  do 

begin 

readln(job5data,res  3(j  J ) ; 

readln(job5data,in  v(j  ] ); 


end; 

for  j:=l  to  18  do 
begin 

readln(job5data,trans_in[j]); 

end; 

flag:=l; 

closeCjobSdata); 

end; 

end; 

begin 
iecail_reu, 
open_data; 
end.  {end  of  redfe) 

writein(xxx,’******************** *********************************************** 

+  **)(c****>y 

writeln(xxx,  *  Modifications  by  Jack  R..  Dempsey  Human  Resources  Research  Organization  *’); 
writeln(xxx,’*  Questions  call  (703)  549-361 1  *’); 

wriicln(x\x,'‘^  ***********************************************************  ******* 

*jittt*****’^. 

v.Titeln(xxx,’bma  compile  1000  local  200  global  200  exp  320  ope  50  con  100’); 
writelnrxxx, ’declare  vector  dates(lO)’); 
writeln(xxx.‘open  data  e_mdates.rcr); 
writeln(xxx,’input(unit=data)  dates’); 

svnteln(xxx,’ieval  dyr  =  fix(dates(l))  ;  ieval  dmonth  =  fix(dates(2))’); 
writeln(xxx,’  ieval  freq  =  rix(dates(3))’); 
writeln(xxx,’calendar  dyr  dmonth  freq’); 
writeln(xxx,’ieval  dlastfc  =  cal(fix(dates(4)),fix(dates(5)))’); 
vvriteln(xxx,’ write  dlastfc’); 
writeln(xxx,’allocate  0  dlastfc+12’); 

wTiteln(xxx,’ IEVAL  DFROM  =  (70,1)  ;  IEVAL  DTO  =  dlastfc-13  ;*  dto=  last  data  point’); 

writeln(xxx, ’write  dfrom  dto  ;*  available  for  leading’); 

writeln(xxx,’ieval  dtol2  =  dto+12  ;*  indicators.’); 

writeln(xxx, ’write  dtol2’); 

writeln(xxx, ’clear  uermtos  uml659’); 

writeln(xxx,’OPEN(BINARY)  DATA  Idindcat.rat’); 

writeIn(xxx,’DATA(FORMAT=RATS)  DFROM  DTO  leil  lei5  lei7  lei8  leil9  lei20  lei21  lei27 
lei28’); 

writeln(xxx,’data(format=rats)  dfrom  dto  lei29  lei46  lei74  lei75  leil06  lei910  lei96’); 
writeln(xxx,’open  data  data_iTs.rat’); 
writeln(xxx, ’clear  allcivun’); 

writeln(xxx,’data(fonnat=rats)  dfrom  dto-Kl  allcivun’); 
writeln(xxx,’set(SCRATCH)  LEI5  dfrom  dto  =  10000.00/lei5(t)’); 
writeln(xxx,’  ’); 
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writeln(xxx,’IEVAL  DISTONE  =  DFROM  -  12’); 
writeln(xxx,’IEV  \L  DLASTONE  =  DTO  +  13’); 
writeln(xxx,’IEVAL  DSEABASE  =  DFROM  -  9’); 
wriieln(xxx,’SEASONAL  SEAS  DISTONE  Dlastfc+ 12  12  DSEABASE’); 
writeln(xxx,’set  trend  dlstone  DLASTFC+12  =  t’); 
writeln(xxx,’  ’); 

writeln(xxx,’ieval  d2  =  dfrom  +  1’); 

writeln(xxx,’ieval  d3  =  dfrom  +  2’); 

writeln(xxx,’ieval  start  =  d3  +  12’); 

writeln(xxx,’  ’); 

writeln(xxx,’clear  resids’>; 

writein(xxx, ’statistics  allcivun  dfrom  dto’); 

writeln(xxx,’LINREG  allcivun  dfrom  dto  resids’); 

writeln(xxx,’#  constant  trend’); 

writeln(xxx,’set  ucycle  dfrom  dto  =  resids(t)  +  mean’); 

\vriteln(xxx,’  ’); 
writeln(xxx, ’clear  resids’); 

\vriteln(xxx,’  ’); 
writeln(xxx,’  ’); 

wTiteln(xxx, ’declare  vector  wt’); 
writeln(xxx, ’dimension  wt(17)’); 

writeln(xxx,’dofor  i  =  LEIl  LEI5  LEI7  LEI8  LEI19  LEI20  LEI21  LEI27  LEI28  LEI29  LEI46 
$’); 

writeln(xxx,’  LEI74  LEI75  LEI  106  LEI910  LEI96’); 

writeln(xxx, ’clear  resids’); 

writeln(xxx,’LINREG(noprint)  i  dfrom  dto  resids’); 
writeln(xxx,’#  constant  trend  -seas  0  -10*); 
writeln(xxx,’ statistics  i  d2  dto’); 
writeln(xxx,’  ’); 
writeln(xxx, ’clear  i’); 

writeln(xxx,’set  i  d2  dto  =  .7  *  resids(t)  .3  *  resids(t-l)’); 
writeln(xxx,’  ’); 

writeln(xxx,’set  i  d2  dto  =  i(t)  +  mean’); 
writeln(xxx,’statistics(noprint)  i  d2  dto’); 
writeln(xxx,’eval  sd  =  var  **  0.5’); 
writeln(xxx,’set  i  d2  dto  =  i(t)/sd’); 
writeln(xxx,’  ’); 

writeln(xxx,’set(scratch)  i  d3  dto  =  (i(t)  -  i(t-l))/(.5  *  (i(t)  -t-  i(t-l)))'); 

writeln(xxx,’  ’); 

writeln(xxx,’end  dofor’); 

writeln(xxx,’  ’); 

writeln(xxx,’  ’); 

writeln(xxx,’*  Source  E_ireg.rcr); 

writeln(xxx,’*  REVISED  9-6-85  (TO  CORRECT  SOURCE  PROGRAMS)’); 
writeln(xxx,’*  E_ireg.rcl  to  run  regressions  with  individual  leading  series’); 
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writeln(xxx,’*’); 

writeln( XXX,  ’  *»»»>forccasting  ««««««««<  ’ ) ; 
writeln(xxx,’ieval  locltime  =  dto’); 
writeln(xxx,’clcar  resids’); 

writeln(xxx,’equation(ar=input,ma=input,more)  1  allcivun’); 
writeln(xxx,’#  1’); 
writeln(xxx,’#  2  4’); 

wriieln(xxx,’#  -le^l  12  12  -lei5  12  12  -lei?  12  12  -lei8  12  12  -leil9  12  12  -lei20  12  12  $’); 

writeln(xxx,’  -lei21  12  12  -lei27  12  12  -lei28  12  12  -lei46  12  12  -lei74  12  12  $’); 

wTiteln(xxx,’  -lei75  12  12  -IeiI06  12  12  -Iei9I0  12  12  -lei96  12  12’); 

writeln(xxx,’initial(noprint)  1’); 

writeln(xxx,’clear  resids’); 

writeln(xxx,’iterate  1  72,5  locltime  resids’); 

writeln(xxx,’*  REVISED  9-6-85  (TO  CHANGE  FILENAME)’); 

writeln(xxx,’*Source  P_autoco.rcr); 

writeln(xxx,’*’); 

writeln(xxx, ’clear  autocor  pautocor’); 
writeln(xxx, ’correlate  resids  0  0  24  autocor’); 
writeln(xxx,’partial  resids  0  0  24  pautocor’); 
writeln(xxx,’plot(width=50,max=  1  ,min=- 1  .number^  1 )  1’); 
wnteln(xxx,’#  autocor  1  25’); 

writeln(xxx,’  plot(  width=50,max=  1  ,min=- 1  ,number=  1 )  1’ ); 

writeinCxxx,’#  pautocor  1  25’); 

writeln(xxx,’*’); 

writeln(xxx,’retum’); 

writeIn(xxx,’*SOURCE  F_AUTOCO.RCL’); 
writeln(xxx,’*’); 

writeln(xxx,’clear  fitted  feast  errsq  sumsq’); 
writeln(xxx,’forecast(print)  1  12  locltime-Hl’); 

\vriteln(xxx,’#  1  feast  locltime+l’); 
writeln(xxx,’errors(print)  1  12’); 
writeln(xxx,’#  1  sterrs  locltime+l’); 
writeln(xxx,’set  feast  locltime  locltime  =  allcivun(t)’); 

writeln(xxx,’set(scratch)  feast  locltime+l  locltime+12  =  0.7  *  fcast(t)  +  0.3  *  fcast(t-l)’); 
writeln(xxx,’set( scratch)  feast  locltime+13  locltime+13  =  fcast(t-i)’); 
\vriteln(xxx,’set(scratch)  feast  locltime+14  locltime+14  =  fcast(t-2)’); 
writeln(xxx,’set( scratch)  feast  locltime+15  ’iOcltime+15  =  fcast(t-3)’); 
writeln(xxx,’set(scratch)  feast  iocltime+16  locltime+16  =  fcast(t-4)’); 
writeln(xxx,’set(scratch)  feast  locltime+17  locltime+17  =  fcast(t-5)’); 
writeln(xxx,’set(scratch)  feast  locltime+l 8  locltime+l 8  =  fcast(t-6)’); 
writeln(xxx,’set  upper90  locltime+l  locltime+12  =  fcast(t)  +  1.645  *  sterrs(t)’); 
writeln(xxx,’set  lower90  locltime+l  locltime+12  =  fcast(t)  -  1.645  *  sterrs(t)’); 
writeln(xxx,’print(dates)  locltime+l  locltime+12  lowei90  feast  upper90’); 
writeln(xxx,’  ’); 

writeln(xxx,’print(dates)  dlastfc-11  dlastfc+5  feast’); 
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writeln(xxx,’clear  newunemp’); 

writeln(xxx,’set  newunemp  dfrom  dlastfc-12  =  allcivun(t)’); 
writeln(xxx,’set  newunemp  dlastfc-11  dlastfc+5  =  fcast(t)’); 
writeln(xxx,’  ’); 

writeln(xxx,’dedit  Idindcat.rat’); 
writeln(xxx,’delete  ucycle’); 
writeln(xxx,’ include  ucycle  ucycle  71,3  dto  1’); 
writeln(xxx,’  cyclical  component  of  unemployment’); 
writeln(xxx,’  ’); 

writeln(xxx.’PRTDATA  UCYCLE’); 
writeln(xxx,’SAVE’); 
writeln(xxx,’dedit  data_n-s.rat’); 

writeln(xxx,’dreplace  unemp  newunemp  71,3  dlastfc+5’); 

writeln(xxx,’PRTDATA  unemp’); 

writelii(xxx,’SAVE’); 

writeln(xxx,’end’); 

writeln(xxx,’  ’); 
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